95

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

21 февраля 2023

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

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



70

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.

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


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...