var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
write('Введите количество элементов '); readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(21) - 10;
write(a[i], ' ');
end;
writeln;
writeln('Вывод массива в соответствии с условием: ');
for i := 1 to n do
begin
if i mod 4 = 0 then
write('нет ')
else
if i mod 2 = 0 then
write('да ')
else
write(a[i], ' ');
end;
end.
Пусть на второй странице Х байт информации.
Тогда на 1 странице 2Х байт информации.
3Х = 258
Х = 86 байт - весит 2 страница.
86*2 = 172 байта - весит первая страница.
Т.к. не дано сколько весит 1 символ, пусть это будет Y(в байтах).
Ответ: 172/Y
Это что за шифр?log без параметров не используется
var
a,b:real;
begin
writeln("Введите рост бамбука за сутки");
readln(a);
b:=a/1440;
writeln(" За минуту бамбук вырастает на ", b:0:3," см");
end.
P.s. Мы делим а на 1440, потому что сначала мы делим (если ввели 86) 86 на 24 и получаем на сколько он вырастает за час, а потому делим на 60 и получаем на сколько вырастает за минуту, значит 60*24=1440, все остальное должно быть понятно
А решить нужно собственно что? Если появится какое то фото, сообщи в комментарии.