:3 заранее подсчитайте объём данных , передаваемых в секунду от видеопамяти к монитору в режиме 1024 х 768 пикселей с глубиной цвета 16 битов и частотой обновлений экрана 75 гц .
16 бит это 2 байта информации. Для одного изображения можно посчитать кол-во информации: Для 75-ти обновлений в секунду это будет в 75 раз больше: 1 572 864*75=117 964 800 байт=115 200 КиБ=112,5 МеБ =)
Program asd; uses crt; var a,b,c,max:integer; r:real; begin Write('Введите число A: '); Readln(a); Write('Введите число B: '); Readln(b); Write('Введите число C: '); Readln(c); If a>=b then max:=a else max:=b; If c>max then max:=c; r:=a+b+c; If (A>B) and (B>C) and (C>0) then Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2); If (A<0) and (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A) then begin A:=max; B:=max; C:=max; Writeln('A= ',a,' B= ',b,' C= ',c); end else Writeln('Symma: ',r); end.
Type mas=array[1..93] of real; var i,w:byte;season:mas;t:real;
function temp(ses:mas;d:byte):real; var i:byte;s:real; begin s:=0; for i:=1 to d do s:=s+ses[i]; temp:=s; end;
begin
repeat writeln('Год високосный?1-да 0-нет'); read(w); if (w<>1) and (w<>0) then w:=2; until w<>2;
writeln('Введите зимние температуры за каждый день:'); for i:=1 to 90+w do readln(season[i]); t:=temp(season,90+w); writeln('Среднее арифметическое зимних температур: ',t/(90+w):5:3);
writeln('Введите весенние температуры за каждый день:'); for i:=1 to 92 do readln(season[i]); t:=temp(season,92); writeln('Среднее арифметическое весенних температур: ',t/92:5:3);
writeln('Введите летние температуры за каждый день:'); for i:=1 to 92 do readln(season[i]); t:=temp(season,92); writeln('Среднее арифметическое летних температур: ',t/92:5:3);
writeln('Введите осенние температуры за каждый день:'); for i:=1 to 92 do readln(season[i]); t:=temp(season,91); writeln('Среднее арифметическое осенних температур:',t/91:5:3); end.
Для одного изображения можно посчитать кол-во информации:
Для 75-ти обновлений в секунду это будет в 75 раз больше: 1 572 864*75=117 964 800 байт=115 200 КиБ=112,5 МеБ
=)