Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Ребята, срочно, помогите!!!
Нужно в Паскале написать программу, которая:
Решает следующую задачу: На складе было N ящиков мыла, в течение 10 дней со склада отпускали ежедневно K ящиков мыла. Сколько ящиков мыла осталось на складе?

Ответ оставил Гость

// На складе было N ящиков мыла, в течение 10 дней со склада отпускали ежедневно K ящиков мыла. Сколько ящиков мыла осталось на складе?

var n,k: real;
begin 
   writeln(Введите количество ящиков мыла завезенных на склад);
  readln (n);
  writeln (Укажите сколько ящиков мыла ежедневно отпускалось со склада);
  readln (k); 
  n:=n-(10*k);
  If (n<0) then writeln (Вы ошиблись. На складе не было такого количества мыла)
          else writeln (Через 10 дней на складе осталось ,n, ящиков мыла);
end.