inj-anastasia8
?>

Вычислить сумму натуральных чисел не превосходящую заданное число а, while

Информатика

Ответы

MislitskiiSergei1403
Var
   A:integer;
   S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
   Begin
   S:=S+A;
   A:=A-1
   End;
WriteLn('S = ',S);
End.
sidorov9

1)один из древнейших культурных злаков,выращиваемый в юго-востойчной азии?

2)что означает слово window с английского?

3)...-это белая смерть?

4)неглубокий надрез на поверхности обрабатываемого материала, сделанный стамеской, резцом, сверлом, пилой или другим инструментом?

5)что маслом не испортишь?

6)транспортное средство,предназначеное для движения по рельсам?

 

                   РИС

                        ОКНО

                         СОЛЬ

                   ВЕТКА

                       КАША

                         ВАГОН

supply1590

1)один из древнейших культурных злаков,выращиваемый в юго-востойчной азии?

2)что означает слово window с английского?

3)...-это белая смерть?

4)неглубокий надрез на поверхности обрабатываемого материала, сделанный стамеской, резцом, сверлом, пилой или другим инструментом?

5)что маслом не испортишь?

6)транспортное средство,предназначеное для движения по рельсам?

 

                   РИС

                        ОКНО

                         СОЛЬ

                   ВЕТКА

                       КАША

                         ВАГОН

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вычислить сумму натуральных чисел не превосходящую заданное число а, while
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Kubataeva Nikolaevich1389
Любовь-Волков1205
vadimnechaev23150
Васенкова204
om805633748
vallium8354
Ka-tja78
girra
zmlavra
Алина1564
Оздоевский
АндреевичАндрей
Yurok9872
tarasova
Наталья_Владимир708