3. Что будет на экране при выполнении этого фрагмента?
Begin
for i:=5 to 10 do
If i mod 5=0
Then write " ,i);
end.
275
353
Ответы на вопрос:
Procedure num ( x: integer ); var s: string; i: integer; begin s : = inttostr(x); for i : = 1 to length(s) do writeln( i, ' цифра: ', s[i] ); end; var numeric: integer; begin write('введите число: '); readln(numeric); num(numeric); end.
Популярно: Информатика
-
Савина1118.10.2021 12:56
-
spetsialist07.06.2023 19:55
-
лалала7407.06.2022 05:50
-
egorviktorov2027.04.2021 00:00
-
Helpmepleasewith22.05.2023 01:34
-
Gtfdgrrgd20.08.2021 10:20
-
yastremskayaal16.03.2022 17:49
-
oiopiha14.11.2020 03:45
-
yrarissikhin14.07.2020 17:14
-
foton22818.05.2023 02:23