На руках некоторая сумма денег, рассчитать стоимость покупки 5 вещей и вычислить уложились ли мы в сумму которая на руках. написать программу надо только на pascal.

Рашида0202 Рашида0202    3   12.02.2020 21:51    0

Ответы
Mellisa11111111 Mellisa11111111  11.10.2020 04:14

var

 money , cost , i:integer;

begin

 read(money); // Стартовые деньги

 for i := 1 to 5 do begin

   read(cost); //Ввод цены предмета

   money := money - cost;

 end;

 if(money < 0) then

   write('No')

 else

   write('Yes');

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика