Капитон
5 год назад
(Данная Задание была создана для приложения на ПК "Pascal ABC")Дано целое число N. Уменьшить число на 12, если число не четное.Пожалуйста посчитайте ПОЖАЛУЙСТА. ОЧЕНЬ НУЖНО ДО ЗАВТРА))
ОТВЕТЫ
Artem
Oct 24, 2020
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.
745
Смежные вопросы:
