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

Розробіть програму, яка визначатиме суму парних чисел від 1 до 30.

Ответ:

arsenpogosyan

07.07.2020 08:59

Var i,s:integer;
begin
s:=0
for i:=1 to 30 do
if i mod 2=0 then s:=s+i;

writeln('Summa=',s);
end.

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

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

Атмир089997

23.07.2022 04:57

1. написать программу, которая заполняет двумерный массив а[1..5,1..5] с датчика случайных чисел (значения элементов массива должны лежать в интервале от -15 до 35)....

superg64745

05.12.2020 16:53

Можете составить список плохих и хороших качеств компьютера по три штуки...

elizaveta2001kz

21.04.2021 08:28

Разветвляющимся называется алгоритм......

сумбэльсофаникита

03.10.2021 20:13

Program Primer; Var N,result : real; Begin Writeln( Введите значения переменной N ); Write( N= ); Readln(N); Result := sqr((9+N)*9); Writeln ( sqr((9+N)*9) , result:8:0);...

MariSar

18.04.2021 18:57

Нужно 5 примеров, по этой таблице очень надо. Тема моделирование, 9класс...

Маргольц

19.12.2021 02:23

Синквеин к слову информация?...

ПомощникКоторыйЛюбит

26.06.2020 02:06

Ну , в чем заключается процесс транспортировки данных?...

Дарья4311

27.05.2022 04:26

Строна катороя обеденяет 2 материка!...

irina2000barano

27.05.2022 04:26

Как формировался человек,как существо биосоциальное?...

striletsnastya

27.05.2022 04:26

Опишите какой-нибудь предмет, выделив его особенные примечательные признаки. ❤❤ много...

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

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