Question

Найдите значения a,b после выполнения фрагмента. Напишите программу на языке Паскаль​

Answer 1

Ответ

пишу на PascalABC

Объяснение:

var

 a, b: integer;

begin

 Writeln('Введите а '); Read(a);

 Writeln('Введите б '); Read(b);

 if a > b then  

 begin

   a := (a mod b) * 2;

   writeln('Выражение со значемем "а" равно: ', a)

 end

 else  

 begin

   b := b * b - 4 * a;

   writeln('Выражение со значемем "b" равно: ', b)

 end;

end.