Пантелеймон 3 ноября 2019 в 11:04
Составьте программу, которая определяет, является ли сумма цифр введенного целого трехзначного числа четным числом
Pascal ABC.
Составьте программу, которая определяет, является ли сумма цифр введенного целого трехзначного числа четным числом
Pascal ABC.
Var a,s:integer;
begin
write(a = );
readln(a);
s:=a div 100 + a div 10 mod 10 + a mod 10;
if s mod 2 = 0
then writeln(s = ,s, - четна)
else writeln(s = ,s, - нечетна)
end.
Пример:
a = 915
s = 15 - нечетна
begin
write(a = );
readln(a);
s:=a div 100 + a div 10 mod 10 + a mod 10;
if s mod 2 = 0
then writeln(s = ,s, - четна)
else writeln(s = ,s, - нечетна)
end.
Пример:
a = 915
s = 15 - нечетна
Компьютеры и вычисления
206
40
Для комментирования необходимо зарегистрироваться на сайте