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

Найти сумму чётных чисел в интервале [от1 до 50] (паскаль)

Ответ:

zarugeos

07.08.2020 08:47

Var s,i:integer;
Begin
s:=0
i:=2
while i <=50 do begin
s:=s+i;
i:=i+2;
end;
writeln(s)
End.

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

Ответ:

maksus1608

07.08.2020 08:47

Var a,i:integer;
    begin
    for i:=1 to 50 do
      if i mod 2 = 0 then
       a:=a+i;
    writeln(a);
   end.

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

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

MrDeff

16.02.2023 15:11

Сформировать двумерный массив а(10*5) через random(50). распечатать в виде таблицы. на основании этого массива сформировать одномерный массив в из сумм значений элементов...

syav1979

20.01.2022 00:18

На вход программе подаётся n натуральных чисел. найти среднее арифметическое двухзначных чисел кратных трём. в языке c++ с решением !...

Мария200114

26.10.2022 20:45

реши . почта дяде фёдору дядя фёдор, кот матроскин и пёс шарик летом жили в простоквашино, а папа с мамой слали им письма, посылки, телеграммы и бандероли, которые доставлял...

cghjy6655

05.05.2020 06:34

Водитель автомобиля движущегося с некоторой постоянной скоростью увидев красный свет светофора нажал на тормоз. после этого скорость автомобиля стала уменьшаться каждую...

israelyan87

31.12.2021 10:32

Дано поле размером 5 х 8 в левой верхней клетке расположен король сколько сделать этот путь , король должен дойти по правого нижнего угла король может ходить только...

matumaxim

09.02.2022 17:49

Светлые умы(( дан мешок, в котором лежат 3 чёрных шара, 5 красных и 7 белых шаров (это наш алфавит). каково количество информации, измеренной в натах, заключено в сообщении:...

avramenko0707

01.07.2020 17:51

Напишите программу определяющую количество максимальных чисел в массиве. массив состоит из 10 чисел...

ritakosyanenko

03.02.2021 06:21

50331648 байт 56320байт 90 гбайт...

DiGribosha

26.10.2022 19:20

Это кроссворд по информатике...

ValeriaChernysheva

20.09.2022 02:27

Создать массив и программа заполняет его рандомными числами до 20 и выводит только четные числаc++...

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

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