сервис вопросов и ответовРозробіть програму, яка визначатиме суму парних чисел від 1 до 30.
5-9 класс|
|
Lenaklacc
15 дек. 2016 г., 23:02:21 (7 лет назад)
котикмурзик
15 дек. 2016 г., 23:51:26 (7 лет назад)
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.
Ответить
Другие вопросы из категории
Напишите программу, которая в последовательности
натуральных чисел определяет минимальное число, кратное 3. Программа
получает на вход количество чисел в последовательности, а затем
сами числа. В последовательности всегда имеется число, кратное 3. Количество
чисел не превышает 1000. Введённые числа не превышают 30 000. Программа
должна вывести одно число — минимальное число, кратное 3.
Андрей, Боря, Женя, Ольга, Роза, Полина, Дима и Серафима — друзья. В это воскресенье Андрей отправился на концерт, Боря провел вечер с Ольгой, Женя
так и не встретил Розу, Полина побывала в кино, Роза посмотрела спектакль в театре. Какая-то пара посетила художественную выставку. Мы не знаем, где именно были Дима и Серафима, но известно, что каждый юноша из этой компании был в театре, на выставке, на концерте или в кино с одной из девушек — Ольгой, Розой, Полиной или Серафимой. Определите, где и с кем побывала каждая девушка из этой компании.
Шахматы были изобретены в Индии. Индусский царь Ше-рам решил наградить изобретателя шахмат, вызвал его к себе и сказал,что исполнит любую его просьбу.
Изобретатель удивил царя беспримерной скромностью просьбы:
-Прикажи выдать мне за первую клетку шахматной доски 1 пшеничное зерно, за вторую 2, за каждую следующую в два раза больше, чем за предыдущую. Сколько килограммов зерен было выдано изобретателю, если 1 зерно весит 0.05 г.
(Решите пожалуйста в excel, или хотябы объясните как мне в нем это решить!)
Читайте также
Помогите решить:
3. Знайдіть помилки у наведених фрагментах програми, запишіть фрагмент правильно, пояснивши суть помилки:
а) x:=1; a:=81;
for i:=1 downto 10 do
begin
x:=x*i;
a:=a+2*i;
end;
б) х:=1; y:=1;
repeat
y:=y*x+2;
x:=x-2
until x-12;
4. Визначте значення всіх змінних у результаті їх виконання.
а) x:=0; y:=1;
while y<4 do
begin
x:=x+y;
y:=y+1
end;
б) x:=0; i:=1;
repeat
i:=i+1;
x:=x+1/i;
until i>6;
5. Розробіть програму, яка виводитиме на екран значення квадратів та кубів натуральних чисел від 1 до n, де n>1 – натуральне число, значення якого задає користувач.
6. Розробіть програму, яка визначатиме суму парних чисел від 1 до 30.
Складiть програму на визначення найменшого iз 4-0Х вiд*ємних чисел Складiть програму на визначення хiмiчного елемента (вiд 5 до 20) при введення їх
порядкового номера. 3найдiть суму кожного третього значення таблицi вiд -6 до -30.
ребят помогите нада написатьребят помогите нада написать програму в паскале через оператор for
напишіть програму обчислення добутків
a(a+1)(a+2)...(a+n+1)
Паскаль. Розгалудження.
Скласти програму, яка дає довідку про назву столиці (St) та про кількість населення (nas, у мільйонах) деякої країни( kr) з такого переліку: Угорщина, Італія, Україна.
Вы находитесь на странице вопроса "Розробіть програму, яка визначатиме суму парних чисел від 1 до 30.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.