Предмет: Информатика,
автор: Anteya
Помогите, пожалуйста, написать программу(паскаль). С пояснениями, желательно.
Нужно с for.
Найти сумму всех n-значных чисел, кратных k.(1 <(или равно) n<(или равно)4).
Ответы
Автор ответа:
0
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
Автор ответа:
0
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.
Похожие вопросы
Предмет: Литература,
автор: Show34
Предмет: Математика,
автор: adelinapluznikova5
Предмет: Қазақ тiлi,
автор: kirakiro4ka1202200
Предмет: Математика,
автор: Поося