Помогите решить задачу (на уровне 7 класса) в pascalABC Дано 2 числа найти модуль разности чисел увеличенный в 5 раз
Помогите решить задачу (на уровне 7 класса) в pascalABC
Дано 2 числа найти модуль разности чисел увеличенный в 5 раз
Гость
Ответ(ы) на вопрос:
Гостьprogram zd;
var
x,y,c,z,t:integer;
begin
writeln('Введите два числа');
readln(x,y);
z:=x*5;
c:=y*5;
t:=abs(z-c);
writeln('Результат равен= ', t);
readln;
end.
попробуй, вроде всё нормально работает
Не нашли ответ?
Похожие вопросы