составьте программу, проверяющую, верно ли утверждение, что сумма цифр, введенного вами числа, является четным
составьте программу, проверяющую, верно ли утверждение, что сумма цифр, введенного вами числа, является четным
Гость
Ответ(ы) на вопрос:
ГостьProgram chet;
var
sum:integer;
a,b:integer;
begin
writeln('Введите число a:');
readln(a);
writeln('Введите число b:');
readln(b);
sum:=a+b;
If (sum mod 2=0) then writeln('Чётное')
Else writeln('Не чётное');
End.
Гостьvar a , b ,c:integer;
begin
writeln('Введите первое число:');
readln(a);
writeln('Введите второе число:');
readln(b);
c:=a+b;
if (c mod 2)=0 then writeln( 'Сумма чисел четное')
else writln('Сумма чисел нечетное');
end.
Не нашли ответ?
Похожие вопросы