Question

Программирование паскаль. Даны два целых числа а,в. Если в меньше 50, то Найдите их произведение и разность. СРОЧНО!!!!

Answer 1

Ответ:

Var a, b, c, d : Integer;

Begin

Write("Vvedite a:"); Readln(a);

Write("Vvedite b:"); Readln(b);

if b < 50 then

begin

c := a * b;

d := a - b;

end;

Writeln("Proizvedeniye ravno", c);

Writeln("Raznosty ravna", d);

readln();

end.

Объяснение:

Я смог помочь?!