1 поколение: Создание програмируемых компьютеров на электронных лампах. 2 поколение: В разы уменьшены габариты ЭВМ, в основе конструкции лежат транзисторы 3 поколение: Создание ЭВМ на миниатюрных интегральных схемах, которые находяться на кристале кремния. Опять невероятно изменились габариты. Один такой кристал мог заменить 30-тонный компьютер на эл. лампах 4 поколение: Создание ЭВМ на больших интегральных схемах. Таким образом достигнута максимальная из поколений производительность, и самые маленькие габариты
1. program pr1; uses crt; var n,k,i,t:integer; begin clrscr; write('Введите целое число n='); readln (n); for i:=2 to n do begin t:=0; for k:=2 to n do if i mod k=0 then t:=t+1; if t=1 then write(i:3); end; readln; end.
2.
Program pr2; Var a, b: Integer;
Function NOD(a, b: Integer): Integer; Var tmp, r: Integer; Begin If b > a Then Begin tmp := a; a := b; b := tmp; End; tmp := a; While tmp > 0 Do Begin Result := tmp; tmp := tmp - b; End; End;
2 поколение: В разы уменьшены габариты ЭВМ, в основе конструкции лежат транзисторы
3 поколение: Создание ЭВМ на миниатюрных интегральных схемах, которые находяться на кристале кремния. Опять невероятно изменились габариты. Один такой кристал мог заменить 30-тонный компьютер на эл. лампах
4 поколение: Создание ЭВМ на больших интегральных схемах. Таким образом достигнута максимальная из поколений производительность, и самые маленькие габариты