Ответы на вопрос:
Var i,k,t,m: integer; begin; k: =0; m: =1; readln(t); if t< 0 then exit; for i: =1 to t do begin; m: =m*10; k: =k+m; end; writeln(k); end.
Популярно: Информатика
-
valeriya281230.03.2022 15:14
-
ЭммаУаилд03.07.2021 10:14
-
RinaZum16.04.2021 10:49
-
karinakarim11.05.2022 05:25
-
ринат12619.06.2021 01:28
-
MCK1728.10.2020 18:07
-
polinadorokhova23.09.2022 17:19
-
jolydolf1208.03.2023 04:13
-
kolafeoktistovp0aj9j22.05.2020 01:46
-
мага09224.06.2021 11:56