Question

Если возможно то напишите на бумаге

Answer 1

Объяснение:

var a,b:real; c,e:integer;

begin

writeln('Введите два целых числа');

readln(a);

// нет ввода второго целого числа. надо написать readln(b);

c:=a/b; //ошибка! при делении может получится дробное число, а с указано как целое

d:=a mod b; //переменная d не описана в разделе var

e:=c+d;

writeln(c);

writeln(d);

writeln(e);

end.

Готовая программа:

var c, e:real; a,b,d:integer;

begin

writeln('Введите два целых числа');

readln(a);

readln(b);

c:=a/b;

d:=a mod b;

e:=c+d;

writeln(c);

writeln(d);

writeln(e);

end.