7-3-3 Ввести два числа и найти: Сумму чисел, разность чисел, результат целочисленного деления первого числа на второе, остаток от деления первого числа на второе.
7-3-5 Вводится целое число n. Выведите следующее за ним четное число.

7-3-3

var

 a, b: integer;

begin

 Writeln('Введите 2 числа:');

 Read(a, b);

 Writeln('Сумма чисел: ', a + b);

 Writeln('Разность чисел: ', a - b);

 Writeln('Целочисленное деление: ', a div b);

 Writeln('Остаток от деления: ', a mod b);

end.

7-3-5

var

 n: integer;

begin

 Writeln('Введите N: ');

 Read(n);

 if n mod 2 = 0 then

   Writeln('Следующее четное: ', n+2)

 else Writeln('Следующее четное: ', n + 1);

end.

КуМир

алг

нач

цел a,c

ввод a

c:=mod(a,2)

если c=0

то

вывод a+2

иначе

вывод a+1

все

кон