Статистика
Всего в нашей базе более 4 326 987 вопросов и 6 445 750 ответов!

Паскаль ABC.Составить программу нахождения количества целых чисел от 1 до 100 делящихся на 3 без остатка.

5-9 класс

Poster180 08 янв. 2015 г., 17:59:15 (5 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Elena2414
08 янв. 2015 г., 19:43:52 (5 лет назад)

program p1;
const n=10;
var a: array [1..n] of integer;
k,i: integer;
begin
randomize;
k:=0;
for i:= 1 to n do
begin
a[i]:= random (100)+1;
write (a[i]:3);
if a[i] mod 3=0 then
k:=k+1;
end;
writeln;
write ('количество чисел=',k);
end.

Ответить

Другие вопросы из категории

что такое ниформатика?
что не может являться источником проникновения вируса на компьютер?

А.модем
В. электронная почта
С.уничтожения компьютерных вирусов
Д.создания вирусов

Читайте также

1)Составить программу нахождения суммы квадратов чисел от 25 до 125.

2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n

Даны два целых числа А и В (А < В) . Найти произведение всех целых чисел от А до В включительно.

Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.

1.Найти произведение всех целых чисел от а до 100 (а<100) кратных 17,но не кратных 2 2.Вычислите: 98+96+94+92+90+88+,,,,,+6+4+2

3.Определить и вывести на экран количество трехзначных чисел,которые делятся без остатка на 5 и 21 одновременно.

4.спортсмен пробежал в 1-ый день тренеровки расстояние 10 км. В каждый следующий день он робегал на 3 км больше ,чем в предыдущий. Определить Суммарное расстояние.

5. в Пионерском лагере n отрядов с различным количеством детей. Сколько всего детей в пионерском лагере?

1)Вывести на экран квадраты и кубы нечётных целых чисел от 9 до 1.

2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
кто может сделать в Паскале или просто решить?

Помогите пожалуйста!(

Найти сумму квадратов всех целых чисел от 1 до 100, реализовав на языке программирования Паскаль с помощью циклов "до" (until/repeat) и "n раз" (for)



Вы находитесь на странице вопроса "Паскаль ABC.Составить программу нахождения количества целых чисел от 1 до 100 делящихся на 3 без остатка.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.