Дано целое число. Если оно является положительным, то прибавить к нему 1; в…

Question

51

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Люди прошупомогите, пипец как надо!

в избранное ссылка

Знаете ответ?

pac313 · Accepted Answer

36

pac313

29 февраля 2024

var a: integer; beginreadln (a); if (a>0) then begina: =a+1; writeln (a); endelse writeln (a); end.

комментировать

в избранное ссылка отблагодарить