Помогите, пожалуйста, написать программу(паскаль). С пояснениями, желательно. Нужно с for. Найти сумму всех n-значных чисел, кратных k.(1 меньше (или равно) n меньше (или равно)4).
Помогите, пожалуйста, написать программу(паскаль). С пояснениями, желательно. Нужно с for. Найти сумму всех n-значных чисел, кратных k.(1 <(или равно) n<(или равно)4).
Гость
Ответ(ы) на вопрос:
Гостьprogram sada; var k,n,res,i:integer; temp:string; begin res:=0; readln(k); temp:=''; for i:=1 to n do temp:=temp+'9'; n:=strtoint(temp); for i:=1 to n do begin if (i mod k = 0) then res:=res+i; end; writeln(res); end. p.s. Программа написана на pascalABC
Гостьvar k, n, Summ, i, max, min:integer; begin write('n = '); readln(n); write('k = '); readln(k); max := 9; min := 1; for i := 2 to n do begin max := max * 10 + 9; min := min * 10; end; for i := min to max do if i mod k = 0 then Summ := Summ + i; writeln('Сумма = ', Summ); end.
Не нашли ответ?
Похожие вопросы