5->27
К1+3
К2•3
К1 5+3=8
К2 8•3=24
К1 24+3=27
Ответ: 3 команды
У первых название двухкрылки,состав:крылья,усы,брюшко,лапки действия:летать,шевелить усами,охотиться.У вторых название двуххвостки состав: хвосты,усы,лапки,брюшко,крылья действия тоже самое что и у первых
var
i, count: integer
i := 1;
count := 0;
repeat
String stroka;
readln(stroka);
if(length(stroka)<3)
count := count+1;
i:=i+1
Until(i=8);
Выводишь на экран
Цикл оформляй через for, я просто забыл синтаксис этого цикла.
Const n = 40;
var a:array [1..n] of integer;
i:integer;
begin
for i:=1 to 10 do a[i]:=random(21);
for i:=11 to 20 do a[i]:=random(51)-10;
for i:=21 to 30 do readln(a[i]);
for i:=31 to 40 do a[i]:=a[i-2]+a[i-1];
for i:=1 to 40 do write(a[i],' ');
end.
Тестовое решение:
1
2
3
4
5
6
7
8
9
0
13 15 17 14 3 2 20 7 14 8 29 34 28 9 7 32 36 -2 16 22 1 2 3 4 5 6 7 8 9 0 9 9 18 27 45 72 117 189 306 495