var
a,b,c,d:real;
z,x:integer;
begin
z:=0;
x:=0;
readln(a);
readln(b);
readln(c):
readln(d);
if (b mod a)=0 then writeln('a делитель числа b');
if (с mod a)=0 then writeln('a делитель числа с');
if (в mod a)=0 then writeln('a делитель числа в');
if a>b then z:=z+1;
if b>c then z:=z+1;
if c>d then z:=z+1;
if z=3 then writeln('числа расположены по убыванию');
z:=0;
if a mod 5=0 then x:=x+1;
if a mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if b mod 5=0 then x:=x+1;
if b mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if c mod 5=0 then x:=x+1;
if c mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if d mod 5=0 then x:=x+1;
if d mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
writeln(z,'чисел делятся на 5 и 7 ');
z:=0;
if a<=7 then z:=z+1;
if b<=7 then z:=z+1;
if c<=7 then z:=z+1;
if d<=7 then z:=z+1;
if z>0 then writeln('есть числа больше или равные 7')
end.
предпоследнее не могу прочесть задание, так что сорри.
256 Кбайт = 256*1024 байт = 256*1024*8 бит
Память для одного пикселя = 256*1024*8/(1024*512) = 4 бита
Число цветов = 2^4 = 16
program raf105;
var k,a,p,b,m,let:real;
begin
write('Площадь участка (га.): ');
readln(k);
write('Средняя урожайность с гектара (ц.): ');
readln(a);
write('Увеличение участка за год (% от прошлогодней площади): ');
readln(p);
write('Рост урожайности за год (% от прошлогодней урожайности): ');
readln(b);
write('Желаемый урожай (ц.): ');
readln(m);
while a < m do
begin
k+= (k/100*p);
a+= (a/100*b);
let+= 1;
end;
writeln;
writeln('Желаемая урожайность (',m,' ц.) будет достигнута через ',let,' лет');
writeln('При этом, площадь участка будет составлять примерно ',round(k),' га.');
end.
<em><u>Язык программирования PascalABC</u></em>
1) 512 бит = 512/8 = 64 байт
4 ГБ = 4*1024 = 4096 МБ
2048 бит = 2048/8/1024 = 0,25 Кб
1/128 Кб = 1024/128 = 8 байт
2) 80 Кб = 80*1024*8 = 655 360 бит
256*64*16 = 262 144 символов всего
655 360 / 262 144 = 2,5 бит = округлим до 3
2^3 = 8 символов
3) 32 Кб = 32*1024*8 = 262 144 бит
8 = 2^3 -> отсюда берем 3 (разряд в двоичной системе счисления)
28*24*3 = 2016
262144/2016 = 130 страниц
Остальные не знаю
A) Сложи все 4 числа, затем сумму раздели на 4. Ответ на экран
б) Прочитай рост сохрани в перемнную выведи на экран. То же самое для веса и возраста
с) Ты можешь использовать теорему Виета или же вычислять по формуле через дискриминант. Не забудь проверить существуют ли корни у этого уравнения.