1 - Ламповые и релейные ЭВМ.
2 - Транзисторные ЭВМ.
3 - Интегральные и Микропроцессорные ЭВМ
Машины третьего поколения перестали занимать этажи в ВЦ, стали ниже по цене(доступны частным пользователям) и обзавелись ОС в привычном для нас виде.
Var i, sum, n: integer;
Begin
Read(n);
for i := 0 to n do
if (i mod 2 =0) then sum := sum +i;
writeln(sum);
End.
1) Первое задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, k: integer;
Begin
Randomize;
i := 1;
k := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] > 15) then
k := k + 1;
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('k = ', k);
End.
2) 2 задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, s: integer;
Begin
Randomize;
i := 1;
s := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] mod 2 = 0) then
s := s + a[i];
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('s = ', s);
End.
P.S. На фотографии не видно часть второго задания. Скорее всего там написано, что нужно посчитать сумму элементов массива с четным значением. Такую программу я и писал.
Var a, b, c, d, e : longint;
begin
assign(input, 'D:\Vanya\School\Pascal\Input\input.txt'); reset(input); assign(output, 'D:\Vanya\School\Pascal\Output\output.txt'); rewrite(output); read(a,b,c,d,e); write(a * b *c*d*e);
end.<span>
</span>
<span>1. Бумажные презентации:
</span><span>2. Электронные презентации:</span>
