Даны целые числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом число A должно выводиться 1 раз, число A + 1 должно выводиться 2 раза и т. д. Это надо в паскале написать через процедуру, буду признателен!
More Questions From This User See All
Answers & Comments
Ох, как давно на Паскале не кодил.
Но вот :)
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.