Ответы на вопрос:
ответ:
объяснение:
const
n = 100;
var
a: array[1..n] of integer;
i, k: integer;
begin
k: =1;
for i: = 1 to n do begin
a[i]: =k;
if (i mod 2 = 0) then k: =k + 1;
end;
for i: = 1 to n do
write(a[i], ' ');
readln;
end.
Популярно: Информатика
-
olgap51olga21.08.2021 21:42
-
konfetka751011.11.2022 07:46
-
anastasia300427.11.2022 17:09
-
sedmaya12.03.2022 03:20
-
Эмир22821.01.2020 03:59
-
vikulka148806.04.2022 10:21
-
Ондруй27.11.2021 19:41
-
vkakochka29.06.2022 03:00
-
Olya19970107.06.2020 22:25
-
srigermisha122.07.2020 21:49