Uses crt;
var
x,y,a,b:integer;
begin
clrscr;
while true do begin
randomize;
x:=random(10);
y:=random(10);
write('Введите первое число=');read(a);
write('Введите второе число=');read(b);
writeln(x,' ',y);
if ((a=x) and (b=y)) or ((a=y) and (b=x)) then begin
writeln('Вы угадали');
end
else begin
writeln('Вы не угадали');
end;
end;
end.
1. использовать Робот
алг нач
нц 3 раз
вверх
вправо
вверх
влево
кц
кон
2. использовать Робот
алг
нач
нц 3 раз
вправо
вниз
вправо
вверх
кц
кон
Var a:string;i,s:integer;
begin
read (a);
for i:=1 to length(s) do
begin
s:=s+i;
write (s);
end;
end.
1. Пусть x - количество груш.
I = log(2)[1/(x/36)] = log(2)[36/x] = 2; 36/x = 2^2; x = 9
1-B
2-A
3-C
4-D
5-A
6-C
7-A
8-C
9-C
10-E