1.раскрывающийся
2. вкладка
1) "ЛЕКЦИЯ"
2) "F=18"
3) "COPY('ИНФОРМАТИКА',3,6);"
4) "24 + 24 =48"
5) "ЭЛЕКТРО"
*кавычки не входят в ответ
Var
c, i, s: real;
begin
s := 0;
c := 50;
while c > 12 do
begin
i := (c / 100) * 20;
c := c - i;
s := s + 1;
end;
write(s);
end.
Это это либо скриншот либо обои картинка,,,
Program gt;
var a:array[1..10]of integer;
i,k:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(10)+1;
k:=0;
for i:=2 to 10 do
if(a[i]>a[i-1])then k:=k+1;
writeln(k);
end.