Задание:
Помогите, пожалуйста, написать программу (паскаль). С пояснениями, желательно. Нужно с for. Найти сумму всех n-значных чисел, кратных k. (1 < (или равно) n< (или равно) 4).
Решение:
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
Знаете другой ответ?