Написать программу в паскале, которая считает среднюю успеваемость учащегося. для расчета у пользователя спрашивают: 1. введите оценку по ////биологии.

272

295

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

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

munisa333

Информатика

4,4(36 оценок)

Var a, b, c, d, e: byte; arithmean: real; begin write('введите оценку по : '); readln(a); write('введите оценку по языку: '); readln(b); write('введите оценку по : '); readln(c); write('введите оценку по : '); readln(d); write('введите оценку по биологии: '); readln(e); arithmean : = (a+b+c+d+e)/5; writeln('средняя = ', arithmean); end.

Галя4425

Информатика

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

Вариант решения №1 находим через сумму членов 2¹ + 2² + 2³ ++ 2ⁿ //pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) var i,j,s,n,a: integer; begin readln(n); for i: =1 to n do begin a: =1; for j: =1 to i do begin a: =a*2; end; s: =s+a; end; writeln(s); end. тестовое решение: 5 62 вариант решения №2 заметим, что 2¹ + 2² + 2³ ++ 2ⁿ =2ⁿ⁺¹ - 2 тогда алгоритм сильно //pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) var i,n,a: integer; begin readln(n); a: =1; for i: =1 to n+1 do a: =a*2; writeln(a-2); end.