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
все
кон
ну попробуй скачать наверняка потянет. еще какой у тебя пк? если сильный потянет. ну попробуй скачать.