Дано целое число. Если оно является положительным, то прибавить к нему 24; в противном случае не изменять его. Вывести полученное число.
 1) program cislo;
 var
 a: integer;
 begin
 writeln('Введи число a');
 readln(a);
 if a > 0 then a:=a+24;
 writeln(a);
 readln;
 end.
 2) program cislo;
 var
 a: integer;
 begin
 writeln('Введи число a');
 readln(a);
 if a < 0 then a:=a+24;
 writeln(a);
 readln;
 end.
 3) program cislo;
 var
 a: integer;
 begin
 writeln('Введи число a');
 readln(a);
 if a > 0 then a:=a;
 writeln(a);
 readln;
 end.
                Другие вопросы по: Информатика
Знаешь правильный ответ?
							Дано целое число. Если оно является положительным, то прибавить к нему 24; в противном случае не изм...
							 
 
Популярные вопросы