Войти Регистрация Спроси ai-bota

Найти сумму 10 натуральных чисел (использовать цикл while).

Ответ:

ovlvlk

03.10.2020 08:59

Var y,i:integer;
begin
while i<=10 do
begin
y:=y+i;
i:=i+1;
end;
Write(y);
End.

0,0(0 оценок)

Популярные вопросы: Информатика

кот912

18.09.2022 22:50

Для зміни ширини форми потрібно вибрати властивість left , Width, Top,Height...

duy53519

29.06.2020 01:22

Сколько будет FPS в играх (CS:GO, PUBG Lite и т.д) у компьютера с характеристиками - Intel G840 2.8Ghz, 4gb ddr3, sata 500Gb....

Сергииенко

17.05.2021 04:32

Какое значение появится в ячейке F2 (в соответствии с внесенной в эту ячейку формулой)?...

azodanic12

12.11.2022 07:37

Дан фрагмент таблицы «Товар на складе». Введи данные в MS Excel и вычисли стоимость всего товара на складе. A B 1 Товар Цена за 1 шт. (руб.) 2 Пальто 6112,1 3 Куртка 3532 4 Шуба 27180...

12356гад

17.02.2022 06:41

нарисовать вот такой домик паскаль abc через графическое програмирование...

AlbertoRey

04.10.2020 19:54

Составьте рассказ об одном дне жизни: а) князя, б) ремесленника: в) крестьянина. 2) каковы причины раздробления государства?...

КИРИЛЛ9067

04.10.2020 19:54

От одной станции одновременно в противоположных направлениях отъехали два поезда. скорость первого поезда равна 114 км/час, а скорость второго - 108 км/час. сколько км пути было между...

ЕлизаветаАлис

04.10.2020 19:54

(1+корень из 7)*(4-корень из 7)*3корня из 7 +9корней из 7...

Dimka621

04.10.2020 19:54

Шестая часть учащихся класса поехала а театр ,а остальные дети - в цирк .сколько детей поехало в цирк .если в театр поехало 5 детей ....

ssamandrakova

04.10.2020 19:54

Спишите,вставляя пропущенные буквы.объясните написания гласных в корнях. ,,,...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку