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

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

platan3698952
mvolkov8
Aleks120498
Тоноян
Zhulanova-IP501
margo55577869
alisabutusova
svetlanam81
AnastasiyaSkripin1283
Gavrilova2527
КузменковаЖигулин
orb-barmanager
lazaren-ko
Boldinova-Marianna
kristinmk