1 - Ламповые и релейные ЭВМ.
2 - Транзисторные ЭВМ.
3 - Интегральные и Микропроцессорные ЭВМ
Машины третьего поколения перестали занимать этажи в ВЦ, стали ниже по цене(доступны частным пользователям) и обзавелись ОС в привычном для нас виде.
Cls - всегда и только очищает окно консоли
Writeln - всегда переводит курсор на следующую строку
Var
a, b, i:integer;
Begin
write('Введите значения a и b: ');
read(a, b);
writeln('Цикл for');
for i := b downto a do write(i*i*i, ' ');
writeln();
writeln('Цикл while');
i := b;
while i >= a do
begin
write (i*i*i, ' ');
dec(i);
end;
writeln();
writeln('Цикл repeat');
i:=b;
repeat
write(i*i*i, ' ');
dec(i)
until i < a
writeln();
End.
VAR a,b:integer;
x:real;
begin
writeln(' a=');
readln(a);
writeln ('b=');
readln (b);
x:=-b/a;
if a =0 then writeln('uravnenie korney ne imeet')
else
writeln('korni uravneniya=',x);
readln;
<span>end.</span>