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*
Комментарий*

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

demakova1969
Виктория-Марина626
rodsher7740
Джамалутдинова Докучаев
cafemgimo
levsha-27509
Яковчук1911
Versalmoda
Zukhra Andreevich1040
e90969692976
zaretskaya37
shakhnina90
Doronin755
An-solomon
polina0075880