Question

Помогите написать программу на паскале. "Написать программу,которая позволяет выставлять оценку за работу в зависимости от кол-ва сделанных ошибок."

Answer 1

Program marks;
var
a,b:integer;
begin
Writeln('Введите кол-во сделанных ошибок: ');
readln(a);
b:=0;
if a=0 then b:=5;
if (a>0) and (a<=3) then b:=4;
if (a>3) and (a<=5) then b:=3;
if (a>5) then b:=2;
writeln('Оценка: ',b);
readln;
end.

Answer 2

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

program ОценкаЗаОшибки;

var
  Ошибки: integer;
  Оценка: char;

begin
  writeln('Введите количество сделанных ошибок: ');
  readln(Ошибки);

if (Ошибки = 0) then
    Оценка := 'A'
  else if (Ошибки <= 3) then
    Оценка := 'B'
  else if (Ошибки <= 5) then
    Оценка := 'C'
  else
    Оценка := 'F';

writeln('Оценка за работу: ', Оценка);
end.

Эта программа запрашивает у пользователя количество сделанных ошибок и затем выставляет оценку в зависимости от этого количества. Если ошибок не было, выставляется оценка "A". Если количество ошибок не превышает 3, выставляется оценка "B". Если количество ошибок не превышает 5, выставляется оценка "C". В остальных случаях выставляется оценка "F".

Надеюсь, эта программа поможет вам в вашей работе!