Помогите, пожалуйста, написать программу (паскаль)

Question

Помогите, пожалуйста, написать программу (паскаль). С пояснениями, желательно. Нужно с for. Найти сумму всех n-значных чисел, кратных k. (1 < (или равно) n< (или равно) 4).

Answer 1

40

rahim

28 февраля 2023

program sada; var k,n,res,i: integer; temp: string; beginres: =0; readln (k); temp: ='; for i: =1 to n dotemp: =temp+'9'; n: =strtoint (temp); for i: =1 to n do beginif (i mod k=0) then res: =res+i; end; writeln (res); end. p.s. Программа написана на pascalABC

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: