составь словосочетание поясняющее значение хлопок,пироги,окуни,соли,пряди,срезал,замок,муки,суши,пищи,полы,дали,берегу,пила,покр
Chertyonok
Цветной хлопок - услышал хлопок, пшеничные пироги - не придумала (пирОги), пресноводные окуни - окуни голову, морские соли - соли грибы, огурцы, золотистые пряди - пряди шерсть, срезал путь, средневековый замок - навесной замок, тесто из муки - адские муки, край суши - суши весла, остатки пищи - не пищи громко, деревянные полы - полы пальто, бескрайние дали - дали конфетку, на лазурном берегу - берегу честь, покрой платья - покрой пол, жгут листья - медицинский жгут, стих о любви - ветер стих, как себя вели? - вели помиловать
Var x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 6=0 then writeln(sqr(x))
<span>end.</span>
var a,b,c,d:string[5];
k,l,err:integer;
begin
readln(a);
readln(b);
c:=copy(a,1,2);
d:=copy(b,1,2);
val(c,k,err);
val(d,l,err);
if k=0 then write ('24-hour clock') else
if k>12 then write ('24-hour clock') else
if l>12 then write ('24-hour clock') else
if l=12 then write ('both') else
write ('12-hour clock');
readln
end.
1)var i,sum:integer;
begin
sum:=0;
i:=45;
while (i<=115) do begin
sum:=sum+i;
i:=i+1;
end;
writeln( 'Сумма = ', sum );
<span>end.
</span>2)var i:integer;
<span>begin
i:=2;
while (i<=150) do begin
If (i mod 2=0) and (i mod 13=0) then
writeln(i);
i:=i+1;
end;end.
3)</span>var c,A,i,N:integer;
begin
write('Введите целое число (N>0) N = ');read(N);
write('Введите целое число A = ');read(A);
c:=1;
i:=1;
while (i<=N) do begin
c:=c*A;
i:=i+1;
Writeln('A в степени ',i,' := ',c);
end;<span>end.</span>
Объяснение:
Обычная не новогодняя елочка без звезды =) Нужна звезда?
SCREEN 9
FOR b = 0 TO 4
y = y + 30
h = h + 10
LINE (200, 70 + y)-(200 - h, 100 + y), 2
LINE (200, 70 + y)-(200 + h, 100 + y), 2
LINE (200 - h, 100 + y)-(200 + h, 100 + y), 2
PAINT (200, 75 + y), 2
NEXT b
LINE (190, 101 + y)-(210, 130 + y), 4, BF
