Thordizar
5 год назад
Даны два целых числа A и В. Выведите все числа от A до B включительно, в порядке возрастания, если A < B, или в порядке убывания в противном случае.
Входные данные
Вводятся два целых числа.
Выходные данные
Выведите ответ на задачу.
Примеры
входные данные
1
10
выходные данные
1 2 3 4 5 6 7 8 9 10
НЕ ДО КОНЦА ПОНЯЛ, КАК ДЕЛАТЬ, ПОМОГИТЕ
ОТВЕТЫ
Neosab
Jun 29, 2019
var
a,b,s,i:integer;
begin
assign(input,путь к документы);
reset(input);
assign(output,output.txt);
rewrite(output)
readln(vvedite menshee chislo);
readln(a);
readln(vvedite bolshee chislo);
readln(b);
for i:=a to b do s:=s+i*i;
writeln(s);
readln;
end.
begin
assign(input,путь к документы);
reset(input);
assign(output,output.txt);
rewrite(output)
readln(vvedite menshee chislo);
readln(a);
readln(vvedite bolshee chislo);
readln(b);
for i:=a to b do s:=s+i*i;
writeln(s);
readln;
end.
Var a,b,i:integer;
begin
read(a);read(b);
if(alt;b)then for i:=a to b do write(i, )
else for i:=b to a do write(i, );
end.
begin
read(a);read(b);
if(alt;b)then for i:=a to b do write(i, )
else for i:=b to a do write(i, );
end.
177
