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

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

Денис_Петровна
irina611901
Vyacheslavovna
si0000
Nataliya Aleksandr1197
Lyubov214
Макаров1887
Платон Демцун
Марюк-Мубариз
АнастасияAndrey
edvlwork15
kotovayaanastasia2069
ivnivas2008
Vitalevich
Andrei-Shchukin