1. Информатика
  2. Составить программу

Составить программу подсчета суммы четных чисел от 10до 50

misheln misheln    2   12.03.2019 11:10    4

Ответы
nikitaevaoa nikitaevaoa  25.05.2020 00:19

Program gg;

Var i,s: integer;

Begin

 For i:=10 to 50 do

  if i mod 2=0 then s:=s+i;

 Writeln('Сумма всех четных чисел от 10 до 50 равна ',s)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Shkolnik1287 Shkolnik1287  17.07.2019 06:20
14 какой минимальный объём памяти (в кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 1024×128 пикселов при условии,...
elizavetachery elizavetachery  04.08.2021 15:03
Я новичок в программировании,помните решить задачу: Вам необходимо написать функцию, которая возьмет несколько слов в качестве аргумента и вернет объединенную версию...
Ananzi Ananzi  04.08.2021 15:34
Возможно ли вычислить данный оператор присваивания при каких-либо типах переменных x и y? Если да, то укажите типы, если нет, то объясните, почему. y:=trunc(x)div...
Il123456 Il123456  04.08.2021 15:34
Что выведут данные программы? a) var a,b,c:integer; begin a:=1 + 11 div 3; b:=2 + 18 mod 3; c:=2.1 + 14 mod 4; writeln(a, ,b, ,c) end. b) var a,b,c:integer; begin...
Усенька Усенька  30.06.2019 09:00
Определим как «красивое» целое положительное трехзначное число х, для которого выполняется следующее условие: сумма квадратов первой и последней цифр равна квадрату...
ЦветокЛотоса ЦветокЛотоса  30.06.2019 09:00
Дан массив состоящий из 10 целых чисел, определить число элементов массива больше 20 и меньше 25...
лошжо лошжо  30.06.2019 08:50
Расположите данные величины в порядке убывания. а) 1,5 мб б) 2 байта в) 1900 кб г) 20 бит д) 0,5 гб...
bogdankpro bogdankpro  30.06.2019 08:50
Дан фрагмент программы.что появится на экране? var s: =0; for i: =1 to 4 do begin a[i]: =i^2-1 s: =s+a[i]; end; writeln(s);...
noname3636 noname3636  30.06.2019 08:40
Решать с паскаль 1.дано трехзначное число. определите есть ли в этом числе одинаковые цифры. 2. работа светофора для пешеходов запрограммирована следующим образом:...
nikitabordkin nikitabordkin  30.06.2019 08:40
Какое количество байт содержит слово коммуникация....

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