Question

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

Answer 1

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.

КуМир

• алг
• нач
• цел а, б, с,д
• ввод а, б
• с:= div(а,б)
• д:= mod(а,б)
• вывод а + б, нс, а-б, нс, с, нс,д
• кон

алг

нач

цел a,c

ввод a

c:=mod(a,2)

если c=0

то

вывод a+2

иначе

вывод a+1

все

кон