Question

Выдает ошибку: Ожидалась функция, встречена процедура Writeln Program Вычисление; var a,b,c,d,e,f,g,x: integer; a1,b1,c1,d1,e1,f1,g1,s1,h1: real; begin readln(x); s1:=x/100*30; h1:=x/100*70; a1:=s1/3; b1:=s1/3; c1:=s1/3; d1:=h1/100*10; e1:=h1/100*30; f1:=h1/100*30; g1:=h1/100*30; writeln ('Уверенность:',a1,'руб')('НЗ:',f1,'руб'); writeln ('Мечта:',b1,'руб '); writeln ('Инвестиции:',c1,'руб '); writeln ('Запас, страховка:',d1,'руб '); writeln ('Жизнь:',e1,'руб '); writeln ('Бытовая техника и т.д:',f1,'руб '); writeln ('НЗ:',f1,'руб'); end.

Answer 1

Ответ:

Program Вычисление;

var

a,b,c,d,e,f,g,x: integer;

a1,b1,c1,d1,e1,f1,g1,s1,h1: real;

begin

readln(x);

s1:=x/100*30;

h1:=x/100*70;

a1:=s1/3;

b1:=s1/3;

c1:=s1/3;

d1:=h1/100*10;

e1:=h1/100*30;

f1:=h1/100*30;

g1:=h1/100*30;

writeln ('Уверенность:',a1,'руб');

writeln('НЗ:',f1,'руб');

writeln ('Мечта:',b1,'руб ');

writeln ('Инвестиции:',c1,'руб ');

writeln ('Запас, страховка:',d1,'руб ');

writeln ('Жизнь:',e1,'руб ');

writeln ('Бытовая техника и т.д:',f1,'руб ');

writeln ('НЗ:',f1,'руб');

end.

Объяснение:

Answer 2

Ошибка в вашем коде связана с тем, что вы пытаетесь объединить две процедуры writeln в одной строке, используя оператор () между ними. Это неверный синтаксис. Вместо этого вы должны использовать две отдельные команды writeln. Вот исправленный код:

pascalCopy code
Program Вычисление;
var
  x: integer;
  a1, b1, c1, d1, e1, f1, g1, s1, h1: real;

begin
  readln(x);
  s1 := x / 100 * 30;
  h1 := x / 100 * 70;
  a1 := s1 / 3;
  b1 := s1 / 3;
  c1 := s1 / 3;
  d1 := h1 / 100 * 10;
  e1 := h1 / 100 * 30;
  f1 := h1 / 100 * 30;
  g1 := h1 / 100 * 30;
  writeln('Уверенность:', a1,'руб');
  writeln('НЗ:', f1,'руб');
  writeln('Мечта:', b1,'руб');
  writeln('Инвестиции:', c1,'руб');
  writeln('Запас, страховка:', d1,'руб');
  writeln('Жизнь:', e1,'руб');
  writeln('Бытовая техника и т.д:', f1,'руб');
  writeln('НЗ:', g1,'руб');
end.

Теперь код должен работать корректно и выводить результаты на экран в соответствии с вашими ожиданиями.