Nasisogun
4 год назад
Составте программу в Pascal ABC где необходимо ввести некоторое целое число и, если оно чётное, уменьшить его в 2 раза
ОТВЕТЫ
Blagoj
Oct 24, 2020
var
a:integer;
begin
write('a=');
readln(a);
if odd(a) then writeln(a/2:6:2);
end.
a:integer;
begin
write('a=');
readln(a);
if odd(a) then writeln(a/2:6:2);
end.
508
Смежные вопросы: