Напишите программу на Pascal.
Поставить вам автоматически зачёт или нет, если норма зачёта 5 положительных оценок.
Срочно нужно, буду благодарен!
Поставить вам автоматически зачёт или нет, если норма зачёта 5 положительных оценок.
Срочно нужно, буду благодарен!
Answers & Comments
Verified answer
Var x1,x2,x3,x4,x5:integer;begin
writeln('Введите 5 оценок');
write('Оценка 1: '); readln(x1);
write('Оценка 2: '); readln(x2);
write('Оценка 3: '); readln(x3);
write('Оценка 4: '); readln(x4);
write('Оценка 5: '); readln(x5);
if (x1 > 2) AND (x2 > 2) and (x3 > 2) and (x4 > 2) and (x5 > 2)
then writeln('Зачет автоматом')
else writeln('Зачет придется сдавать самому');
end.