Написать программу, которая вводит с клавиатуры а и b целые числа и находит целую часть от деления b на а Если эта часть больше трёх, то а * b, а если меньше или тавно трём, то сумму а и b.

1

Ответы и объяснения

2013-10-14T13:36:52+00:00
Var
   A,B: integer;
begin
Write('A = ');
Read(A);
Write('B = ');
Read(B);

if ( (B div A) > 3) then
   Writeln('A * B = ', A*B)
else
   Writeln('A+B = ', A+B);
end.