Пусть дано 100 целых чисел, которые вводятся по одному. Найдите количество…

Question

50

Пусть дано 100 целых чисел, которые вводятся по одному. Найдите количество элементов больших числа 10 и кратных 3

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

ответить

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

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

nelisey · Accepted Answer

79

nelisey

25 февраля 2023

Program Pr1; uses crt; var mas: array[1… 100] of integer; i,a: integer; Beginclrscr; a: =0; for i: =1 to 100 do begin read (mas[i]); if (mas[i]>100) and (mas[i] mod 3=0) then a: =a+1; end; writeln (a); end.

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

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

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

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