как можно быстрее
k>1?
Результат F(k)
ФИО
0
( a
g
Program v2_21;
VAR k:Integer;
Procedure fin:Integer);
Begin
Write('');
IF n>1 Then
Write('*');
Write('*');
ГEnd; ;
Begin
For k:=0 TO 2 DO
F(k);
End.
--
L
T
И.
И u
КЕ
0
B
А A
р
1.
Конечный
результат
на экране
M
Программа v2 22;
Процедура Ф;
Начало
Пометить;
Конец;
Начало
ПОКА СвобВпереди выполнить
Начало
Ф; РоботВперед; РоботВперед,
РоботНалево;
Конец.​

жыландыыыы    1   21.02.2021 12:20    1