Дан интервал натуральных чисел от m до n.определить все целые числа в этом интервале?

188

233

Посмотреть ответы 2

Ответы на вопрос:

ismatov031

Информатика

4,8(65 оценок)

Целые числа - это натуральные числа, противоположные по знаку натуральным и 0. поэтому подходят все числа от m до n

несамаяумная

Информатика

4,7(89 оценок)

program zadacha_1; var s, p, b : real; n : integer; begin n : = 0; writeln('введите количество денег у школьника пример: (10.00)'); read (s); writeln('введите стоимость сока пример: (10.00'); read (p); writeln('введите стоимость бутылки пример: (10.00'); read (b); while s> =p do begin n : = n + 1; s : = s - p; s : = s + b; end; writeln('можно купить ', n, ' бутылок сока.'); end.