Сумма четных чисел. Паскаль
FAQ FAQer
Ученик
(106),
закрыт
11 лет назад
На уроке информатике, учитель дал задание написать программу для вычисления суммы четных чисел от 2 до 100. Я написал программу двумя способами. через массив и с подусловием. Однако, он сказал что тот кто решит задачу с помощью цикла и сможет задать оператора через арифметическую функцию(если ошибаюсь то исправьте), тому поставит 5 в четверть. Очень нужна оценка)
Дополнен 11 лет назад
Во-первых я учусь не в школе для “детей с задержками умственного развития”.
А во-вторых я в 6 классе
Krab Вark
Оракул
(56898)
11 лет назад
var i,s:integer; begin s:=0; for i:= 1 to 50 do s:=s+2*i; writeln(s); readln end.
У вас что, школа для “детей с задержками умственного развития”?
На обычной контрольной полагается за урок решить минимум три-четыре такие задачи. А лучше за полурока.
Хотя, конечно, эту задачу проще решить в уме. 2+100=102. 4+98=102. Так 25 раз. 25*102=2550
SN@KE
Профи
(590)
11 лет назад
var sum, i integer;
sum:=0;
for i:=2 to 100 i:=i+2
do
sum:=sum+i;
writeln (“сумма равна”, sum);
другой вариант через остаток от деления и условие
var sum, i integer;
sum:=0;
for i:=2 to 100 i:=i+1 do
if (i mod 2)=0 then sum:=sum+i;
writeln (“сумма равна”, sum);
Морозов Максим
Мастер
(1056)
11 лет назад
Program Hochy5;
var i, n, sum: integer;
begin
for i:= 2 to 100 do
begin
n:=i mod 2;
if n=0
then
begin
sum:=sum+i;
end;
end;
writeln(‘сумма чётных чисел в промежутке от 2 до 100 равна – ‘,sum);
end.
3
Составить программу на языке Паскаль для вычисления суммы всех четных чисел на интервале от 1 до н.
(9 задание)
1 ответ:
0
0
Ответ:
Объяснение:
var
i,n,s:integer;
begin
write(‘Введите n=’);
readln(n);
s:=0;
while i<=n do
begin
if i mod 2=0 then s:=s+i;
i:=i+1;
end;
writeln(‘s=’,s);
readln;
end.
===================================
И чуть короче с циклом for
var
i,n,s:integer;
begin
write(‘Введите n=’);
readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln(‘s=’,s);
readln;
end.
Читайте также
<span>Насчет заморозить пару бутылок – мысль интересная, но главное – не пропустить эффектный момент, когда их разорвет в морозилке! Под вентилятором в жару можно заработать простуду. А вот понижение температуры за счет поглощения тепла в процессе испарения влаги – совершенно верно. Здесь хороши все варианты: фонтан, мыть полы и не вытирать (в старину их просто мочили или поливали водой), развешивать мокрую ткань, принимать прохладный (холодный, если здоровье позволяет) душ или просто налить ванну холодной воды и оставить открытую дверь</span>
Правдивая, объективная, независимая
Попробую описать ход предполагаемого решения, где большие буквы -имена, а маленькие – профессии, точнее их первые буквы.
Потом пишу номер условия и, в зависимости от него, переставляю имена и профессии на соответствующие позиции.
—
Сначала запишем их так, как в условии:
Б(д) В(с) А(п) Ф(т)
Условия:
1. Просто запоминаем
2. Б(д) В(п) А(с) Ф(т)
3. Просто запоминаем
4. Ф(т) Б(д) В(п) А(с)
5. Просто запоминаем
6. Просто запоминаем
7. Ф(т) А(д) В(п) Б(с)
8. Просто запоминаем.
Проверяем выполнение всех условий, убеждаемся, что все верно.
Ответ:
1-токарь Федор
2-дантист Андрей
3-плотник Виктор
4-слесарь Борис
256 = 2^8 – 8 бит на пиксель.
Соответственно, 2 = 2^1 – 1 бит.
То есть при преобразовании размер должен был уменьшится в 8 раз.
x / 8 = x – 7 (x – исходный размер в Кбайтах)
x = 8x – 56
7x = 56
x = 8
Ответ: 8Кб
Pascal ABC
program perevod;
uses crt;
var
a,i,error:integer;
s,d:string;
begin
write(<em>’Введите число: ‘</em>);
readln(a);
str(a,s);
for i:=1 to length(s) do d:=s[i]+d;
val (d,a,error);
write(<em>’Ответ: ‘,</em>a);
end.
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают
30 000.
Программа должна вывести одно число – СУММУ чисел.
Решение:
В начале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Суммируем: То что было в сумме плюс очередной элемент.
Var a, i, sum, n: integer; begin read(n); sum:=0; for i:=1 to n do begin read(a); sum:= sum + a; end; Writeln(sum); end.
Нахождение СУММЫ чисел КРАТНЫХ 4.
Задача 2
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, КРАТНЫХ 4. В последовательности всегда имеется число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают
30 000.
Программа должна вывести одно число – СУММУ чисел, кратных 4.
Решение:
В начале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент кратный 4, то мы суммируем: то что было в сумме плюс наш элемент.
var a, i, sum, n: integer; begin read(n); sum:=0; for i:=1 to n do begin read(a); if a mod 4 = 0 then sum:= sum + a; end; Writeln(sum); end.
Нахождение СУММЫ чисел, ОКАНЧИВАЮЩИХСЯ на 2.
Задача 9
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2. В последовательности всегда имеется число, ОКАНЧИВАЮЩЕЕСЯ на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают
30 000.
Программа должна вывести одно число – СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2.
Решение:
Вначале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который оканчивается на 2 то мы суммируем: то что было в сумме плюс наш элемент.
var a, i, sum, n: integer; begin read(n); sum:=0; for i:=1 to n do begin read(a); if a mod 10 = 2 then sum:= sum + a; end; Writeln(sum); end.
Нахождение СУММЫ чётных чисел.
Задача 3
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чётных чисел. В последовательности всегда имеется чётное число. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают
30 000.
Программа должна вывести одно число – СУММУ чётных чисел.
Решение:
Вначале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался чётный элемент (остаток от деления на 2 равен нулю), то мы суммируем: то что было в сумме плюс наш элемент.
var a, i, sum, n: integer; begin read(n); sum:=0; for i:=1 to n do begin read(a); if a mod 2 = 0 then sum:= sum + a; end; Writeln(sum); end.
Разбор демоверсии ОГЭ по информатике 2023. Часть 2
Разбор второй части ОГЭ по информатике демоверсии 2023….
Категория: Информатика Подкатегория: ОГЭ
Дата: 24-08-2022 в 13:09:01
2
Светило науки – 549480 ответов – 388270 раз оказано помощи
1. “Школьное” решение
// PascalABC.Net 3.0, сборка 1064
var
i,n1,n2:integer;
s:longint;
begin
Write(‘Введите интервал для вычисления суммы: ‘); Read(n1,n2);
s:=0;
if n1 mod 2 = 0 then i:=n1 else i:=n1+1;
while i<=n2 do begin s:=s+i; i:=i+2 end;
Writeln(‘Сумма четных чисел в интервале равна ‘,s)
end.
Тестовое решение:
Введите интервал для вычисления суммы: 7 14
Сумма четных чисел в интервале равна 44
2. Современное решение
// PascalABC.Net 3.0, сборка 1064
var
n1,n2:integer;
begin
Write(‘Введите интервал для вычисления суммы: ‘); Read(n1,n2);
if Odd(n1) then Inc(n1);
Writeln(‘Сумма четных чисел в интервале равна ‘,Range(n1,n2,2).Sum);
end.
progamer55
+10
Решено
6 лет назад
Информатика
5 – 9 классы
PASCAL ABC: Составьте программу вычисления суммы четных чисел в диапазоне от 1 до 100
Смотреть ответ
1
Ответ
5
(2 оценки)
4
triolana
6 лет назад
Светило науки – 553134 ответа – 388270 раз оказано помощи
var I,s:integer;
begin
s:=0; //сумматор обнуляем обязательно
for i:=1 to 100 do
if i mod 2=0 then s:=s+i; //узнаем четное ли число и записываем его в нашу сумму
writeln(‘Сумма четных чисел равна ‘,s);
end;
все что после // (два слэша) можно удалить, так пишутся комментарии в программе
(2 оценки)
https://vashotvet.com/task/10360527
