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