Написать программу в pascal которая считывает сумму всех кратных чисел от a до b

276

443

Посмотреть ответы 2

Ответы на вопрос:

kntalya

Информатика

4,5(22 оценок)

Var a,b,i,kratnoe,n,s: int64; begin read (a,b,kratnoe); s: =0; for i: =a to b do if (i mod kratnoe=0) then s: =s+i; write(s); end.

rtyuidsad042

Информатика

4,8(76 оценок)

Переместить курсор в начало текста; вверх страницыудалить справа/удалитьставит регистр букв заглавнымивыходпереключение режима вставкивход, ввод, переход на новую строкуудаление слева