Предмет: Информатика,
автор: joonsss
Дано N чисел. Найти сумму четных чисел. Паскаль. Через mod
Спасибо большое! Но можно как-нибудь попроще без where, println и тд
На уровне 5-7 классов. На самом начальном уровне.
Вас обманывают, то что вы называете проще, на самом деле не проще, там писать нужно много и три переменных вводить
var n,x,s: integer;
begin
read(n);
s := 0;
for var i := 1 to n do
begin
read(x);
if x mod 2 = 0 then inc(s, x)
end;
Write('s = ', s)
end.
begin
read(n);
s := 0;
for var i := 1 to n do
begin
read(x);
if x mod 2 = 0 then inc(s, x)
end;
Write('s = ', s)
end.
так вас учат?
Да, только вот подскажите пожалуйста что выполняет inc?
вы в какой среде паскаля пишете? Если в PascalABC.NET наведите мышку на inc и вам покажет окошко там будет написано, что это такое, еще можете зайти в справку, она встроена в среду, и там есть поиск, напишите inc и тоже все увидите, а вообще это процедура, она увеличивает переменную s на x (в данном конкретном случае). Но можно это заменить на s := s + x
Воу, огромное спасибо за решение и объяснение! Буду сейчас разбирать)
на здоровье
Ответы
Автор ответа:
4
program chet;
uses crt;
var N, a, b, c:Integer;
begin
a:=0;
Write('Сколько чисел будем вводить? ');
ReadLn(N);
for b:=1 to n do
begin
Write('Введите число номер ', b, ': ');
Readln(c);
if c mod 2 = 0 then
begin write(' - это чётное число, берём его!');
a:=a+c;
WriteLn('Текущая сумма равна ', a);
end
end;
Writeln('----------');
Write('Итоговая сумма чётных чисел: ', a);
readln;
end.
uses crt;
var N, a, b, c:Integer;
begin
a:=0;
Write('Сколько чисел будем вводить? ');
ReadLn(N);
for b:=1 to n do
begin
Write('Введите число номер ', b, ': ');
Readln(c);
if c mod 2 = 0 then
begin write(' - это чётное число, берём его!');
a:=a+c;
WriteLn('Текущая сумма равна ', a);
end
end;
Writeln('----------');
Write('Итоговая сумма чётных чисел: ', a);
readln;
end.
Похожие вопросы
Предмет: Физика,
автор: belikoartyom
Предмет: Физика,
автор: anastasiatalimoncuk
Предмет: Русский язык,
автор: erni031223
Предмет: Алгебра,
автор: Света20066
ReadSeqInteger(ReadInteger('n =')).Where(x -> x mod 2 = 0).Sum.Println;
end.