Вводятся оценки за контрольную работу по и . выведите на экран "молодец" , если их сумма равна или более 9 , иначе -"подтянись"

233

433

Посмотреть ответы 2

Ответы на вопрос:

alexandra189

Информатика

4,6(35 оценок)

Var a, b : integer; begin writeln('введите оценку по '); readln(a); writeln('введите оценку по '); readln(b); if (a+b)> =9 then writeln('молодец') else writeln('подтянись'); end.

snojkox

Информатика

4,5(73 оценок)

Var a,sum,i,n: integer; begin readln(n); if n< =0 then writeln('n не натуральное число') else begin sum: =0; for i: =1 to n do begin read(a); sum: =sum+a; end; writeln(sum/n); end; end.