Я знаю, информатика Босова 7 класс?
Имя (везде первые буквы)
М В Л А
инструмент
С + - - -
У - - + -
П - + - -
К - - - +
факультет
Б ** - ** -
И - - - +
Г - + - -*
<span> Ф ** - ** -
</span>*ПИОНИСТ НА ГЕОГ. А КТО НЕ ПИОНИСТ-НЕ НА ГЕОГ., ЗНАЧИТ АНДРЕЙ НЕ ГЕОГРАФ.
Т.К. ЛЕОНИД НЕ НА ГЕОГ., ТО ОН НЕ ПИОНИСТ,ЗНАЧИТ ВЛАД-ПИОНИСТ, И ОН НА ГЕОГ.
<span>**Но кто биолог и физик - я не догадалась(да и вопроса такого не стоит). </span>
1. выйти на лестницу
2. взять щётку и крем
3. принести всё в квартиру
4. протереть обувь тряпкой
5. начистить щёткой
6. намазать кремом
7. убрать щётку и крем на место
8. положить обувь
Uses crt;
type sInfo = record
surname:string;
height:integer;
end;
var pInfo:array [1..12] of sInfo;
begin
pInfo[1].surname := 'Смирнов';
pInfo[1].height := 190;
pInfo[2].surname := 'Иванов';
pInfo[2].height := 155;
pInfo[3].surname := 'Николаев';
pInfo[3].height := 150;
pInfo[4].surname := 'Викторов';
pInfo[4].height := 168;
// И так далее по примеру выше.
// Вывод вот так:
writeln('Фамилия = ', pInfo[1].surname, ' Возраст = ', pInfo[1].height);
end.
Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]<(st[2]+st[3])) and (st[2]<(st[1]+st[3])) and (st[3]<(st[1]+st[2])) then write('P=',st[1]+st[2]+st[3]) else write('треугольник не существует');
end.
Пока s<=1000 выполняем действия:
S=s*3 и n=n+3
Выводим в конце n
Получается
1) s=1*3=3, n=0+3=3 и в следующем шаге подставляем уже эти значения
2) 9, 6 в следующем шаге подставляем уже эти значения и т.д.
3) 27, 9
4) 81, 12
5) 243, 15
6) 729, 18
7) 2187, 21
S>1000 и происходит выход из цикла
Ответ: 21
