(Данная задача была создана для приложения на ПК "Pascal ABC")
Дано целое число N. Уменьшить число на 12, если число не четное.
ПОМОГИТЕ ПОЖАЛУЙСТА. ОЧЕНЬ НУЖНО ДО ЗАВТРА))
Ответы
Ответ дал:
0
Program DZ;
var n: longint;
begin
read (n);
if n mod 2 <> 0 then n:=n-12;
write (n);
end.
var n: longint;
begin
read (n);
if n mod 2 <> 0 then n:=n-12;
write (n);
end.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад