Предмет: Информатика,
автор: Аноним
Информатика, работа в ПАСКАЛЕ
составить программу для проверки, является ли сумма цифр двухзначного четной.
(например, 24 и 6 эта сумма четная. А у 25 и 7 она ничетная)
Ответы
Автор ответа:
1
- Program Brainly;
- Var a, b: integer;
- Begin
- Writeln('Введите число а: ');
- Readln(a);
- Writeln('Введите число b: ');
- Readln(b);
- if (((a + b) mod 2=0)) then writeln('Сумма цифр – чётная')
- else writeln('Сумма цифр – нечётная');
- end.
Приложения:
pinguinbird:
Мм...мне кажется в задании немного про другое. Дано двузначное число. Например, 24. Надо проверить, чётная ли сумма цифр данного числа, то есть 2 + 4. А вы просто сумму двух чисел проверяете. В общем, мне кажется ответ неверный, просто потому что неправильно понята суть задачи.
и кстати, у вас синтаксис неверный, так что программа не заработает.
У меня все работает
ну хорошо, только неправильное решение это, т.к. задача про другое :)
и вообще символ ";" перед "end" не ставится :)
но это ладно, некоторые компиляторы на это забивают.
Вот такой должен быть код:
program HomeWork;
var a:integer;
begin
write('Введите двузначное число: '); readln(a);
if ((a div 10) + (a mod 10)) mod 2 = 0 then write('Сумма цифр чётная!')
else write('Сумма цифр нечётная!')
end.
program HomeWork;
var a:integer;
begin
write('Введите двузначное число: '); readln(a);
if ((a div 10) + (a mod 10)) mod 2 = 0 then write('Сумма цифр чётная!')
else write('Сумма цифр нечётная!')
end.
Будь что-то не то, автор задания мне сказал это, и я исправил бы. А так, ваша замечания мне до лампочки.
оу, что тут сказать, пусть так
Похожие вопросы
Предмет: География,
автор: 12ПоЛиНа13
Предмет: Литература,
автор: ser905
Предмет: Химия,
автор: idan9978
Предмет: Математика,
автор: Kpoper1234
Предмет: Русский язык,
автор: pleshakovbasil