Даны целые числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом число A должно выводиться 1 раз, число A + 1 должно выводиться 2 раза и т. д. Это надо в паскале написать через процедуру, буду признателен!
221
258
Ответы на вопрос:
Ох, как давно на Паскале не кодил.
Но вот :)
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.
Популярно: Информатика
-
Lunitoes20.06.2020 08:25
-
schooll1322.06.2022 10:18
-
Алиска324515.02.2020 04:45
-
artem87417.01.2021 04:45
-
ятупик223.09.2022 19:15
-
Mymail1013.12.2021 13:38
-
kiramillerthe102.02.2022 03:39
-
мак11921.03.2020 05:21
-
Каракат1111127.02.2023 03:43
-
Лианиа18.05.2023 01:39