program raf105;
var mama,sum,rub,day:integer;
begin
write('Какую сумму денег мама выдала сыну? >> ');
readln(mama);
writeln('Введите сумму, которую вы потратили за один день');
writeln('Что бы узнать оставшиеся и потраченные деньги введите "-1"');
sum:=mama;
while sum<>0 do
begin
readln(rub);
if sum-rub >= 0
then
if rub=-1
then
begin
writeln('У вас осталось ',sum,' руб.');
writeln('Вы потратили ',mama-sum,' руб. за ',day,' дн.');
end
else
begin
sum:= sum-rub;
day:= day+1;
end
else writeln('У вас недостаточно денег, что бы потратить такую сумму');
end;
writeln('У вас закончились деньги');
writeln('Вы потратили их за ',day,' дн.');
end.
Написано на языке PascalABC.NET
Добрый день,
#include <iostream>
int main() {
auto a, b, c, e, f;
std::cin >>a >> b >> c; // вводим три числа
std::cin >> e >> f; // вводим промежуток
if (a < f & & a > e) { // проверяем, если число принадлежит отрезку, выводим его
std::cout << a << " " ;
}
if (b < f & & b > e) {// проверяем, если число принадлежит отрезку, выводим его
std::cout << b << " " ;
}
if (c < f & & c > e) {// проверяем, если число принадлежит отрезку, выводим его
std::cout << c << " " ;
}
return 0;
}
Вот ваша программа язык С++