Question

Паскаль АБС
Найдите значение выражения (a div b+b)*mid c.
Переменные вводятся с клавиатуры

Answer 1

program zna4enie;
var a, b, c,rez:integer;
begin
writeln('Введите первую цифру');
readln(a);
writeln('Введите вторую цифру');
readln(b);
writeln('Введите третью цифру');
readln(c);
rez:=(a div b+b)mod c;
writeln('(' ,a,' div ', b,'+ ',b,' )mod ',c);
write('Ответ: ',rez);
end.