Мы судьи с "ЕртисДарына" Ваша школа будет дисквалефецирована!
Мы нашли вас по вашему 'Ip' коду
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>
Пока сверху и не слева стена
вперед
вниз
вниз
вниз
вправо
вправо
вправо
закрасить
пока сверху стена
закрасить вперед
пока не снизу стена
закрасить
вниз
пока снизу стена
закрасить
влево
наверх
закрасить
направо
закрасить
направо
закрасить
направо
закрасить
направо
закрасить
1 ---> 15 1)+1 2)+2 3)+4
---------------------------------------
1 начало
2 1+1 1
3 1+2; 2+1 2
4 3+1; 2+2 3
5 1+4; 3+2; 4+1 6
6 5+1; 4+2;2+4 10
7 6+1;5+2;3+4 18
8 7+1;6+2;4+4 31
9 8+1;7+2;5+4 55
10 9+1;8+2;6+4 96
11 10+1;9+2;7+4 169
12 11+1;10+2;8+4 296
13 12+1;11+2;9+4 520
14 13+1;12+2;10+4 912
15 14+1; 13+3;11+4 1601 ответ 1601
uses crt;
var i,count:integer;
a:array[1..15] of integer;
begin
randomize;
count:=0;
writeln('Первый екзамен сдало 15 человек ');
for i:=1 to 15 do
begin
a[i]:=random(5)+1;
if a[i] = 2 then inc(count);
end;
for i:=1 to 15 do writeln('Студент ',i,' написал на ',a[i],' балов '); //не обезательно
writeln('На екзамен допущено ',count,' человек!! ');
readln;
end.