Регистрация
zhadanovayuliy
29.03.2023 15:48
Информатика
Есть ответ 👍

Написать программу на паскале, определяющую, сколько раз число 10 встречается среди элементов таблицы а(n) , состоящей из целых чисел.

231
485
Посмотреть ответы 2

Ответы на вопрос:

Do6pblu322
Do6pblu322
4,7(76 оценок)
// pascalabc.net 3.1, сборка 1174 от 22.02.2016 begin   var a: =arrrandom(readinteger('n='),1,50);   a.println;   writeln('количество чисел 10 равно ',a.where(x-> x=10).count) end. тестовое решение: n= 20 27 7 12 44 27 49 11 8 45 12 8 50 39 10 1 37 37 25 27 11 количество чисел 10 равно 1
ххх87
ххх87
4,6(58 оценок)

можешь не

var

a,n: integer;

begin

readln(a);

while a< > 0 do

begin

if (a mod 5=0)or (a mod 7=0)then inc(n);

readln(a);

end;

writeln(n);

end.

Популярно: Информатика