Выберите элементную базу вычисления машин третьего поколения​

поколение ЭВМ:3

Временный промежуток:1965-1975

Элементная база:интерегальная схема

Объяснение:

я на всякий случай сделаю 4

Поколение ЭВМ:4

Временный промежуток:1975-1990

Элементная база:большая элементная схема

Удачи в СОРе!

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.