С клавиатуры вводятся любые 50 чисел найти сумму чисел, которые делятся на 5.
5-9 класс
|
Program pr;
uses crt;
Var s:real;
a,i:integer;
Begin
s:=0;
Writeln('Введите 50 чисел');
for i:=1 to 50 do
Begin
readln(a);
if (a mod 5=0) then s:=s+a;
end;
Writeln('s=',s);
readln;
end.
Другие вопросы из категории
1) Основание корпорации IBM
2) основание майкрософт
3) появление первой компьютерной сети arpanet
4) создана малая электронная счётная машина МЭСМ (разработана под рукводством Лебедева)
5) появление ОС Windows Vista
6) Появление языка Бейсик
7) Создана машина ЭНИАК
8) появление ОС OS/2
Сравните окна папок в ОС Windows и Linux и выясните, чем они различаются. Какие элементы окна присутствуют в папках ОС windows, а какие — в папках Linux?
Читайте также
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
2.С клавиатуры вводится действительное число p.Записать отдельно его целую часть C.
Помогите составить программу.