Напишите программку которая в последовательности натуральных чисел определяет количество чисел меньше
Напишите программку которая в последовательности естественных чисел определяет количество чисел меньше 500 и кратных 3. Програма получает на вход количетво чисел, а потом сами числа. Введеные числа не привышают 30000
Задать свой вопросvar a: array[1..100] of integer;
n, col, tmp: integer;
begin
writeln(Введите количество чисел);
readln(n);
writeln(Заполните массив с клавиатуры);
for i := 1 to n do begin
readln(tmp);
if tmp lt;= 30000 then a[i] := tmp else writeln(Введённое число больше 30000!);
end;
writeln(Подсчитываем количество разыскиваемых чисел);
for i := 1 to n do if (a[i] lt;= 500) and (a[i] mod 3 = 0) then col := col + 1;
writeln(Количество чисел, которые меньше 500 и кратны 3 , col);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
География.
Литература.
Разные вопросы.
Математика.
Разные вопросы.
Литература.
Литература.
Разные вопросы.
Кыргыз тили.
Математика.