ВК
Валентина Калайгерда

В паскале: Найти сумму целых положительных чисел, кратных 5 и меньше 200.

Be
Be

целеком писать не буду, но как-то так:
pos,result:integer;

pos:=5;
result::=0;
while pos<=200 do
begin
result:=result+pos;
pos:=pos+5;
end;

В конце цикла в переменной result будит искомое число.

Похожие вопросы
Циклический алгоритм Дано 5 чисел. Найти сумму положительных чисел
найти сумму целых чисел больших 10 меньших 50 кратных 3 и заканчивающихся на 2. турбо паскаль, СРОЧНО!
Пожайлуста, помогите мне написать массив в паскале: найдите сумму чисел, кратных чисел?
5. Найдите сумму всех натуральных чисел, кратных 3 и не превосходящих 100.
как найти общее кратное чисел 10 и 12 больше 200 и меньше 300???
Найдите сумму всех натуральных чисел, кратных 6 и не превосходящих 200
Найдите сумму и произведение целых положительных чисел больших 28, меньших 100 и кратным 13.
найти сумму всех целых чисел от -11 до 14
Дано 25 чисел. Известно, что сумма любых четырёх из них положительна. Верно ли, что сумма всех чисел положительна?
Помогите. Найти сумму целых положительных нечетных чисел меньших 50. в Turbo Pascal