{цикл с постусловием}
a:=1; Summa:=0;
Repeat
Summa:=Summa + a;
a:=a+1;
Until a>N;
Writeln(‘Summa=‘,Summa);
{цикл с параметром}
Summa:=0;
For a:= 1 to N do
Summa:=Summa + a;
Writeln(‘Summa=‘,Summa);
Задача 2: Известны оценки по химии каждого ученика класса. Определите среднюю оценку класса по предмету. Количество учеников в классе задается пользователем.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть