Это были огромные, порой занимающие сотни квадратных метров площади, ламповые машины 50-х годов. Они работали на электровакуумных лампах, которых могло быть понатыкано тысячами.
Одной из первых ЭВМ была ENIAC, она представляла собой огромную машину длиной около 30-ти метров, содержала 18.000 электровакуумных ламп и потребляла около 150 киловатт.
Не было ни монитора, ни клавиатуры, ни мыши, для ввода данных использовали перфокарты или перфоленты. Эти машины обычно использовали для расчётов, где не применялись большие объёмы памяти.
Потом, в 1559 г. в США создали транзистор, который заменил электровакуумные лампы, наступило 2-ое поколение ЭВМ..
65 килобайт = 65/1024/1024 = 0,0006 гбайт
1:
var n:integer;otvet:real;
begin
writeln('Введи n:');
readln(n);
otvet:=1;
for var i:=1 to n do otvet:=otvet*i;
writeln('n!=',otvet);
<span>end.
2:
var n:integer;otvet:real;prostoe:boolean;
begin
writeln('Введи n:');
readln(n);
prostoe:=true;
for var i:=2 to n-1 do if n mod i = 0 then
begin
writeln(n, ' Не простое, делится на ',i);
prostoe:=false;
exit;
end;
if prostoe then writeln(n, ' Простое');
<span>end. </span></span>
Program maximum;
Var a, max, k, i: integer;
Begin
max:=0;
k:=0;
For i:=1 to 4 do
begin
Readln(a);
if (a > max) then
Begin
max:=a;
k:=1;
end else begin
If (a = max) then
k:=k+1;
end;
end;
end;
Writeln(max,k);
end.