⇢ 
Сергей Данченко
Пожалуйста, помогите составить алгоритм к задаче:
Найти и сосчитать все числа натурального ряда, которые больше N1 и меньше N2. N1>0, N2>0. N1, N2 вводятся с клавиатуры.
Валерия
var n1,n2,i:longint;
begin
write('N1 N2 ? '); readln(n1,n2); s:=0;
for i:=n1+1 to n2-1 do write(i:8); writeln;
writeln('n=',n2-n1-1); readln
end.
АВ
Александр Валинуров
а книгу лень читать уже раз 10 писал алгоритмии
СО
Сергей Овчеренко
алгоритм для случая, если N1 и N2 натуральные (об этом в условии не сказано, но скорее всего подразумевается) :
ввод N1, N2
если N2-N1
Похожие вопросы