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

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

shef3009
sleek73
Nikolaevna382
Yelena1458
Валерьевич Николаевич1364
Ragim777hazarovich
tatk00
egoryuzbashev
Koshovkina1721
sidorov9
rnimsk149
Полковников_Милана
Калмыкова-Петрунина
demochkoo
AleksandrIvanovich1273