Предмет: Информатика,
автор: haloyrasha666
ПОМОГИТЕ ПОЖАЛУЙСТА))
Написать программу, которая n раз спрашивает человека какая у него оценка, а если все оценки 4 или 5,то в конце после цикла выводит фразу :"Ты молодец")))
Ответы
Автор ответа:
0
PascalABC.NET 3.3
program journal;
var
sum, mark, count, n: integer;
check: boolean;
begin
sum := 0;
check := true;
count := 0;
writeln('Введите количество оценок: ');
readln(n);
if (n > 0) then begin
while (count <> n) do
begin
readln(mark);
inc(sum, mark);
if (mark < 4 ) then check := false;
inc(count);
if (count = n) then writeln('Ввод окончен!');
end;
end else writeln('Error!');
if ((check) and (sum > 0) and (n > 0)) then writeln('Ты молодец!');
end.
Похожие вопросы
Предмет: Русский язык,
автор: pma28rus
Предмет: Другие предметы,
автор: kennykinny1110
Предмет: Русский язык,
автор: yaulya11985
Предмет: Обществознание,
автор: адикон4
Предмет: Биология,
автор: Arianna1880