Помогите написать программу ** паскале. "Написать программу,которая позволяет выставлять...

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;<br>if (a>3) and (a<=5) then b:=3;<br>if (a>5) then b:=2;
writeln('Оценка: ',b);
readln;
end.

Comments

Единственное что, ещё нужно дописать <= в условиях.

---

Ибо если ввести кол-во ошибок, равное, к примеру 5 или 3, программа выведет оценку 0.

---

Всё, исправил =)

---

большое спасибо.