Регистрация
1221081056
22.06.2022 01:56
Информатика
Есть ответ 👍

Дано целое число. если оно положительное то +1, иначе не менять заданное число. информатика

198
467
Посмотреть ответы 2

Ответы на вопрос:

Human333
Human333
4,7(62 оценок)
Var n: integer; begin readln(n); if n> 0 then begin  inc(n);     writeln(n); end else writeln(n); end.
nastyakhariton1
nastyakhariton1
4,6(30 оценок)
Var s: integer; begin readln(s); s: = (s div 100)+((s div 10) mod 10)+(s mod 10); writeln (s); end.

Популярно: Информатика