Помогите, пожалуйста, с информатикой.
Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел.
надо решить в паскале тремя способами (for, while, repeat)
Заранее спасибо.
Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел.
надо решить в паскале тремя способами (for, while, repeat)
Заранее спасибо.
Answers & Comments
var a,b,k:integer;
begin
readln(a,b);
for b:=b-1 downto a+1 do
begin
writeln (b);
k:=k+1
end;
writeln('k=',k)
end.
var a,b,k:integer;
begin
readln(a,b);
while b>a+1 do
begin
b:=b-1;
writeln (b);
k:=k+1
end;
writeln('k=',k)
end.
var a,b,k:integer;
begin
readln(a,b);
repeat
b:=b-1;
writeln (b);
k:=k+1
until b=a+1;
writeln('k=',k)
end.