Даны четыре целых числа

Question

Даны четыре целых числа. Определить сумму тех из них, которые кратны трем. Составить программу в паскале. Заранееспасибо!

Answer 1

65

mike_tyson

02 августа 2022

Uses crt; var a: array[1… 4] of integer; sum,i: integer; beginclrscr; writeln ('Введите 4 целых числа: '); for i: =1 to 4 do begin read (a[i]); if a[i]mod 3=0 then sum: =sum+a[i]; end; writeln ('Сумма чисел, кратных трем: ',sum); end.

пользователи выбрали этот ответ лучшим

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

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

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

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