Меню сайта

Задача №2

Даны два целых числа —AиB(A&lt- —B). Вывести в порядке возрастания все целые числа, расположенные между —Aи —B(в том числе —Aи —B), —a -также количество —Nэтих чисел.


Program for_2-

Var a,b,i,k:integer-

Begin

Writeln(‘введите число A’)-

Readln(a)-

Writeln(»введите число B’)-

Readln(b)-

k:=0-

For i:=A to B do

begin

writeln(i)-

k:=k+1-

end-

Writeln(‘количество чисел= ‘,k)-

Readln-

End.

Категория: Циклы | Дата: 16.11.12

Меню раздела
Блок