<span><span><em>function proverka(i :integer):boolean;
</em>
<em>begin
if i mod 2=0 then
</em>
<em>proverka:=true
</em>
<em>else
</em>
<em>proverka:=false;
</em>
<em>end;</em></span></span>
1) 1 поколение: эвм представляет собой огромный шкаф
2 поколение: эвм выполнена в виде однотипных стоек
3 поколение: эвм выполнена в виде однотипных стоек
4 поколение: компактные эвм, например ноутбуки, персональные компьютеры
2) 1: десятки
2: тысячи
3: десятки тысяч
4: миллионы
3) 1: 10-20 тыс. операций в секунду
2: 100-1000 тыс. операций в секунду
3: 1-10 млн. операций в секунду
4: 10-100 млн. операций в секунду
4)1:2 кбайта
2:2-32 кбайта
3:64 кбайта
4:2-5 мбайт
5)1:МЭСМ, БЭСМ-2
2:БЭСМ-6, Минск-2
3:IBM-360, IBM-370, ЕС ЭВМ, СМ ЭВМ
4:IBM-PC, Apple
6)1:Перфокарта, перфолента
2:Магнитная лента
3:Диск
4:Гибкий и лазерный диски
Один пиксель 8 бит
Всего пикселей 10*300=3000
3000*8 бит весит
3000*8/8 байт весит = 3000
Ответ 3000 байт
Program srednee;
var
x, y: integer;
sredn: real;
begin
write('x = '); readln(x);
write(' y = ');readln(y);
sredn := (power(x, 3) + power(y, 3)) / 2;
writeln('Srednee arifmeticheskoe = ', sredn);
writeln('X otlichayetsya na ',abs(sredn-x));
writeln('Y otlichayetsya na ',abs(sredn-y));
end.