Предмет: Информатика,
автор: khramtsova99
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
(язык программирования паскаль)
Ответы
Автор ответа:
0
Program one;
var: a: real;
begin
Writeln ('Введите число');
readln (a);
If a<0 then else a:=a+1 else writeln (a)
end.
Вроде так
var: a: real;
begin
Writeln ('Введите число');
readln (a);
If a<0 then else a:=a+1 else writeln (a)
end.
Вроде так
Похожие вопросы
Предмет: Қазақ тiлi,
автор: nralbaj
Предмет: Математика,
автор: aiko2409
Предмет: История,
автор: raslegsa90
Предмет: Геометрия,
автор: Эркинбеков