Синформатикой(паскаль) посчитать сумму первых 10 чётных чисел.(те которые делятся на 2 без остатка)

103

292

Ответы на вопрос:

4,7(44 оценок)

Var summ: integer; i: byte; begin summ : = 0; for i : = 0 to 20 do begin if i mod 2 = 0 then summ : = summ + i; end; write('summ is ', summ); end.

4,5(71 оценок)

// pascalabc.net 3.4.2, сборка 1806 от 30.09.2018 // внимание! если программа не работает, обновите версию!

begin

var (na,nb): =readinteger2('мощность множеств a и b: ');

var a,b: set of integer;

repeat

a+=[random(0,50)]

until a.count=na;

a.println;

repeat

b+=[random(0,50)]

until b.count=nb;

b.println;

(a-b).println

end.

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.