Помогите решить задачу (на уровне 7 класса) в pascalABC

Дано 2 числа найти модуль разности чисел увеличенный в 5 раз

Question

Информатика

Рита

21 февраля, 09:20

Помогите решить задачу (на уровне 7 класса) в pascalABC

Дано 2 числа найти модуль разности чисел увеличенный в 5 раз

+5

Ответы (1)

Знаете ответ на вопрос?

Ритоха · Answer 1

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.

попробуй, вроде всё нормально работает

Помогите решить задачу (на уровне 7 класса) в pascalABCДано 2 числа найти модуль разности чисел увеличенный в 5 раз

Помогите решить задачу (на уровне 7 класса) в pascalABC

Дано 2 числа найти модуль разности чисел увеличенный в 5 раз