Предмет: Информатика,
автор: ftgnjyt
If1. Дано целое число. Если оно является положительным, то вычесть из него 8; в противном случае не изменять его. Вывести полученное число.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!
Ответы
Автор ответа:
16
var n:integer;
begin
readln(n);
if n>0 then begin n-=8; writeln(n);end
else writeln(n);
end.
begin
readln(n);
if n>0 then begin n-=8; writeln(n);end
else writeln(n);
end.
Интересные вопросы
Предмет: Биология,
автор: Roblox762
Предмет: Русский язык,
автор: kizznecovazaza
Предмет: Физика,
автор: vipmegapomega
Предмет: Биология,
автор: лера183982
Предмет: Физика,
автор: КРЕЙЗИГЁРЛ