Даны два целых числа a и в. выведите все числа от a до b включительно, в порядке возрастания, если a < b, или в порядке убывания в противном случае. входные данные вводятся два целых числа. выходные данные выведите ответ на . примеры входные данные 1 10 выходные данные 1 2 3 4 5 6 7 8 9 10 не до конца понял, как делать,

Eldar1001 Eldar1001    1   20.08.2019 09:40    47

Ответы
Девчуля08 Девчуля08  05.10.2020 07:02
Var a,b,i:integer;
begin
read(a);read(b);
if(a<b)then    for i:=a to b do write(i, ' ') 
 else  for i:=b to a do write(i,' ');
end.
ПОКАЗАТЬ ОТВЕТЫ
УмныйЧеловек1999 УмныйЧеловек1999  05.10.2020 07:02
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика