Ребят, помогите! Написать программу: Является ли сумма цифр заданного 7-значного…

Question

47

Ребят, помогите! Написать программу: Является ли сумма цифр заданного 7-значного числа, стоящих в разрядах десятков тысяч, сотен и единиц (1 234 567) числом четным или кратным 7?

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

olga-gris · Accepted Answer

61

olga-gris

10 апреля 2023

PascalABCvari,k,b: integer; a: array[1… 7] of integer; beginfor i: =1 to 7 doread (a[i]); b: =a[1]+a[2]+a[3]+a[4]+a[5]+a[6]+a[7]; if (b mod 2=0) or (b mod 7=0) thenwriteln ('Это число четное либо кратно 7') else writeln ('Это число не четное и не кратно 7); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: