Предмет: Информатика,
автор: kira10111990
Напишите решение на языке паскаль
Приложения:
Ответы
Автор ответа:
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.
Приложения:
Похожие вопросы
Предмет: Английский язык,
автор: BMW750li
Предмет: Русский язык,
автор: normok123456
Предмет: Русский язык,
автор: FffffSsfffffffffgg
Предмет: ОБЖ,
автор: proo68
Предмет: Математика,
автор: 1234568722