Ответы на вопрос:
Ятак понимаю вам нужна программа на паскале program zadacha; var s,k,n,p,i: integer; begin s: =0; p: =1; readln(n,k); for i: =1 to n do p: =p*10; for i: =trunc(p/10) to p-1 do if i mod k=0 then s: =s+i; write(s); end.
Популярно: Информатика
-
tatsux201029.11.2020 11:39
-
salome5toriy24.06.2020 18:32
-
MudriyMudrec05.10.2020 02:13
-
maxim121313.01.2022 07:00
-
zakirovAlesha17Алёша24.07.2021 11:33
-
bagaeva0210.03.2020 07:48
-
zhidkovzachar22.04.2022 00:09
-
Иноним111111121.11.2020 17:31
-
ElliDiHastua26.02.2020 00:08
-
ната11884511.11.2020 15:32