Question

Напишите программу на языке паскаль , которая будет делииь пирог на равные части по весу. ( масса пирога/кол во учеников ) Если кол во учеников = 0 , то должно выйти сообщение " 0 учеников в классе не может быть "

Answer 1

Ответ:

var

 m, d :integer;

 part : double;

begin

 writeln('Масса пирога =');

 readln(m);

 writeln('количество учеников =');

 readln(d);

 if d > 0 then begin

   part := m/d;

   writeln('Вес каждой части пирога = ', part:2:2)

 end

 else

   writeln('0 учеников в классе не может быть');

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая делит пирог на равные части по весу и проверяет, что количество учеников больше нуля:

pascalCopy code
program DividePie;
var
  PieWeight, StudentsCount, SliceWeight: real;
begin
  write('Введите массу пирога (в граммах): ');
  readln(PieWeight);
  
  write('Введите количество учеников: ');
  readln(StudentsCount);
  
  if StudentsCount = 0 then
  begin
    writeln('Ошибка: 0 учеников в классе не может быть.');
  end
  else
  begin
    SliceWeight := PieWeight / StudentsCount;
    writeln('Каждый ученик получит порцию пирога весом ', SliceWeight:0:2, ' грамм.');
  end;
end.

Эта программа сначала запрашивает у вас массу пирога и количество учеников в классе. Затем она проверяет, что количество учеников больше нуля, и выводит сообщение с весом порции пирога для каждого ученика. Если количество учеников равно нулю, она выводит сообщение об ошибке.