Вывести все целые числа, расположенные между заданными

@efe · Регистрация: 25.10.2010

Author24 — интернет-сервис помощи студентам

Ребята нужно не большая помощь ... нужно решить задачу с операторами цикла for while repeat.
я через for сделал нужно теперь через while repeat.
даны два целых числа А и В (A<B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их возрастания, а также количество N этих чисел.

Pascal

Program sr1;
var
a, b, i, cnt: integer;
begin
write('Vvedite A: '); readln(a);
write('Vvedite B: '); readln(b);
cnt := 0;
for i := a to b do
begin
writeln(i);
cnt := cnt + 1;
end;
writeln;
writeln('kol-vo: ', cnt);
readln;
end.

13.10.2011, 20:38

Pascal

Program sr1;
var
a, b, cnt: integer;
begin
write('Vvedite A: '); readln(a);
write('Vvedite B: '); readln(b);
cnt := 0;
while a<=b do
begin
writeln(a);
cnt := cnt + 1;
a:=a+1;
end;
writeln;
writeln('kol-vo: ', cnt);
readln;
end.

Так?

@efe · 13.10.2011, 20:40 **[ТС]**

ну я незнаю как будет просто нужно решит способами while repeat.

13.10.2011, 20:41

Pascal

Program sr1;
var
a, b, cnt: integer;
begin
write('Vvedite A: '); readln(a);
write('Vvedite B: '); readln(b);
cnt := 0;
repeat
writeln(a);
cnt := cnt + 1;
a:=a+1;
until a>b;
writeln;
writeln('kol-vo: ', cnt);
readln;
end.

А вот с repeat. всё работает.

@efe 7 / 6 / 3 Регистрация: 25.10.2010 Сообщений: 218
	13.10.2011, 20:40 [ТС]	3
	ну я незнаю как будет просто нужно решит способами while repeat. 0

	13.10.2011, 20:41

Опции темы