найти сумму чётных чисел среди двузначных
5-9 класс
|
var
i,s:real;
begin
s:=0;
for I:=10 to 99 do begin
if (i mod =0) then s:=s+i:
end;
writeln('s=',s);
readln;
end.
Другие вопросы из категории
в двоичную, восьмеричную и шестнадцатиричную системы счисления:
860; 785; 149,375
нужно с решением, пожалуйста.
Читайте также
файла.Результат поместить в файл g.
дан файл f компоненты которого являются целыми числамию Найти наибольший и наименьший из компонентов файла.результат поместить в файл g
ДАн файл f компоненты которого являются целыми числами найти количество чётных чисел среди компонентов.результат поместить в файл g
Дан файл F компоненты которого являяются целыми числами.записать в файл g все чётных числа файла f
Дан файл F компоненты которого являяются целыми числами переписать компоненты файла f в файл g,так чтобы в файле сначала шли отрицательные а потом положительные числа.
1)Найти сумму чисел от 1 до 10
2)Найти сумму чётных чисел от 2 до 30
3)Найти сумму нечётных чисел от 1 до 30
4)Найти произведение чисел от 1 до 10
5)Найти произведение чётных чисел от 10 до 20
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль