Арифметикалық
цикл
Сызықтық
Тармақталған
толымсыз
Қадамдық цикл
Тармақталған
толымды
1-ден n-ге дейінгі сандардың квадраттарының қосындысын табатын программа құру керек.
Var s,i,n:integer;
Begin
Writeln(’n=’);
Readln(n);
I:=1; S:=0;
While i<=n do
Begin S:= S+sqr(i);
I:=i+1;
Writeln(‘S=’,S);
End; End.
№2 тапсырма
Var Z,Y: integer;
Begin Z:=1;
While y<=6 do
Begin
Z:=sqr(Y)*Y;
Writeln ( ‘Y=’,Y,’___ Z=’,Z) ;
Y :=Y+1 ; End; End.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть