If1. Дано целое число. Если оно является положительным, то вычесть из него 8; в противном случае не изменять его. Вывести полученное число.
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад