Type mas=array of integer;
procedure revers(var a:mas; i:integer);
begin
write(a[i],' ');
if i>0 then revers(a,i-1);
end;
var a:mas;
i,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do
read(a[i]);
revers(a,n-1);
end
Обозначи кол-во цветков, распустившихся ПОЗАВЧЕРА за X, ВЧЕРА - за (X - 11) (по условию). ВЧЕРА распустилось на 11 цветков меньше, чем ПОЗАВЧЕРА и на 32 меньше, чем СЕГОДНЯ и ПОЗАВЧЕРА вместе.Подставим x=12 (>11) - цветков ВЧЕРА, значит 12-11=1 - цветков завтра. Цветков СЕГОДНЯ находим так: 32 (дано) - 11 (дано) = 21.
Ответ:
Позавчера - 12 цветков.
Вчера- 1 (12 - 11 = 12+ 21 - 32) цветок.
Сегодня - 21 цветок.
Program mas;
var
mas, p_mas: array[1..15] of integer;
i: integer;
begin
randomize;
for i:= 1 to 15 do
begin
mas[i] := Random(6) + 7;
p_mas[i] := mas[i];
end;
mas[8] := mas[10] + 5;
mas[10] := mas[13];
writeln('Первоначальный массив:');
for i := 1 to 15 do
write(p_mas[i], ' ');
writeln(CRLF + 'Изменённый массив:');
for i := 1 to 15 do
write(mas[i], ' ');
end.
1)
dopustim svet 1 bit. pixel=80x50
pixel=4000
razmer=4000x svet(1)
razmer=4000
2)
svetnaya paltira=2^5
znachit svet=5
pixel=80x50
pixel=4000
razmer=4000x5
razmer=20000
3)