Ответы
Ответ дал:
1
Ответ:
См. объяснение
Объяснение:
Program celiechisla;
Var x, y, count, sum: integer;
Begin
Write('Введите два целых числа X и Y таких, что X<Y: ');
Readln(x,y);
count:=0;
sum:=0;
If x<y then
begin
writeln('целые числа, находящиеся в отрезке [', x,' ; ', y, ']:');
while x<y+1 do
begin
write(x, ' ');
sum:=sum+x;
if x+1<y then count:=count+1;
x:=x+1;
end;
Writeln;
Writeln('Количество целых чисел между X и Y (не считая X и Y): ', count);
Writeln('Сумма всех чисел отрезка: ', sum);
end
else writeln('Введённые числа не удовлетворяют условию.');
Readln;
End.
Приложения:
![](https://st.uroker.com/files/d2c/d2c26d1275b9c75c8dca4891c1ec61dd.jpg)
![](https://st.uroker.com/files/344/344c679d4f5d121c08627816c8030707.jpg)
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад