Регистрация
skybeast
03.10.2020 05:32
Информатика
Есть ответ 👍

Найти сумму всех n(1-4)значных чисел кратных k

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

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

DanIEL982
DanIEL982
4,6(76 оценок)
Program zadacha; uses crt; var n, k: integer; s: longint; begin clrscr; write ('enter k: '); readln (k); s: =0; for n: =k to 9999 do begin if n mod k =  0 then  s: =s+n; end; writeln ('summa=', s); readkey; end.
sofianastusenko
sofianastusenko
4,7(41 оценок)


По инфе попробуй если сможешь ​

Популярно: Информатика