Написать программу на паскале где надо найти сумму чисел из отрезка от а до б, кратным 7 и вывести числа на печать в строчку

цикл с шагом - 1

то есть down to

Question

Информатика

Вевея

16 января, 10:14

Написать программу на паскале где надо найти сумму чисел из отрезка от а до б, кратным 7 и вывести числа на печать в строчку

цикл с шагом - 1

то есть down to

+5

Ответы (1)

Знаете ответ на вопрос?

Желика · Answer 1

Var

var

a, b, i:integer;

begin

readln (a, b) ;

if a>b then

begin

for i:=a downto b do

if i mod 7 = 0 then

write (i:4)

end

else

for i:=b downto a do

if i mod 7 = 0 then

write (i:4) ;

end.

Написать программу на паскале где надо найти сумму чисел из отрезка от а до б, кратным 7 и вывести числа на печать в строчкуцикл с шагом - 1то есть down to

Написать программу на паскале где надо найти сумму чисел из отрезка от а до б, кратным 7 и вывести числа на печать в строчку

цикл с шагом - 1

то есть down to