Даны 3 числа. Вывести сумму четных из них, которые являются двухзначными числами.…

Question

95

Даны 3 числа. Вывести сумму четных из них, которые являются двухзначными числами. (в паскале) помогите срочнонадо

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

ответить

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

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

gruvald · Accepted Answer

70

gruvald

26 февраля 2024

Program Zadacha; Var a: Array [1… 3] of Integer; sum, i: Integer; BeginWriteLn ('Введите 3 числа через пробел'); For i: =1 To 3 DoRead (a[i]); For i: =1 To 3 DoIf (a[i] Mod 2=0) And (a[i] Div 10=1) Thensum: =sum+a[i]; WriteLn (sum); ReadLn; End.

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

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

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

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