Предмет: Информатика,
автор: 1finn11
Помогите решить задачу (на уровне 7 класса) в pascalABC
Дано 2 числа найти модуль разности чисел увеличенный в 5 раз
Ответы
Автор ответа:
0
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.
попробуй, вроде всё нормально работает
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.
попробуй, вроде всё нормально работает
Интересные вопросы
Предмет: Математика,
автор: aminaamangeldi69
Предмет: Другие предметы,
автор: valeriavanicek
Предмет: Английский язык,
автор: Аноним
Предмет: Алгебра,
автор: Алдохина