26 февраля, 20:51

Помогите написать программу на паскале.

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

+2
Ответы (1)
  1. 26 февраля, 22:05
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Помогите написать программу на паскале. "Написать программу, которая позволяет выставлять оценку за работу в зависимости от кол-ва ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы