Program p1; var y,x:integer;
begin
writeln ('введите 2 числа');
readln (x,y);
writeln ('x+y=z''x-y=a');
s:=x+y;
n:=x-y;
writeln ('Сумма=',s);
writeln ('Разность=',n);
end.

там где s:=x+y неизвестное имя s

vvasea66 vvasea66    3   17.09.2021 01:02    0

Ответы
Likamm Likamm  17.09.2021 01:10

var y, x, s, n:integer;

begin

 writeln ('введите 2 числа');

 readln (x,y);

 writeln ('x+y=z''x-y=a');

 s:=x+y;

 n:=x-y;

 writeln ('Сумма=',s);

 writeln ('Разность=',n);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика