Ох, как давно на Паскале не кодил.
Но вот :)
program abv;
uses crt;
var a, b:Integer ;
procedure abv(a, b:Integer);
var i, k, count:Integer;
begin
count:=1;
for i:=a to b do
begin
for k:=1 to count do
begin
write(i, ' ');
end;
count:=count+1;
writeln() ; {Эту строку можно убрать, если хочешь, чтобы всё выводилось в одну строчку}
end;
end;
begin
writeln('Введите а:') ;
readln(a);
Writeln('Введите b:');
readln(b);
if (a<b) then
abv (a, b)
else
writeln('Ошибка! Введенные данные неправильны! Закрытие программы...') ;
readln();
end.
В 1991 году вышел новый процессор R4000. Данный процессор имел 64-битную архитектуру. встроенным сопроцессором и работал на тактовой частоте 100 МГц. позже его эволюционировали и в 1996 году вышла доработанная версия, R10000. Процессор был с 32 Кб первичной кэш-памяти данных и команд. это были самые первые процессоры но в 2013 году компания представила миру следующее новое поколение процессоров Piledriver. Данная модель являлась улучшенной архитектурой Bulldozer.
Были доработаны блоки предсказания ветвлений, тактовая частота, возросла производительность модуля операций с плавающей запятой и целочисленных вычислений.
