Question

While циклін пайдаланып 1 ден 100 ге дейінгі сандардын косындысын табатын
программа жаз?

Answer 1

Ответ:

Запись на стене

Алгоритмдеу және программалау тілдері

5 янв 2014 в 22:02

Компьютермен жұмыс

1-ден n – ге дейінгі сандардың квадраттарының қосындысын табатын программа құру керек.

Program kvadrat;

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.