PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadlnInteger;
ReadSeqInteger(n).JoinIntoString('').
Where(c->c in ['2','4','6','8']).Select(c->c.ToDigit).Sum.Println
end.

Пример
13
4492 13638 -4490 4186 13985 -4266 5805 -26574 28710 -378 17920 1886 -24200
146

0 0

1 год назад

Ввести с клавиатуры последовательность из N элементов. Найти сумму положительных элементов, значения которых не превышают 2. Выв

Светлана Понарошку

Var n,i,k:integer;
a:array[1..4096] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if (a[i]<=2) and (a[i]>0) then k:=k+a[i];
end;
writeln('Summa = ',k);
end.

0 0

4 года назад

Составьте блок схему и программу для вычисления функции z=x4+sinx Даю много баллов

pandaX5 [52]

Блок-схема - в прилагаемом файле.
Программа:
var x,z:real;
begin
write('x = ');
readln(x);
z:=sqr(sqr(x))+sin(x);
writeln('z = ',z:6:4);
end.

Пример:
x = 2
z = 16.9093

0 0

4 года назад

Составить логическую схему к выражению F=(AvB)&(A&B)

ekaterina hlopova [7]

$F=(A\lor B)\&(A\&B)=(A+B)AB=AB+AB=AB(1+1)=AB$
Получаем обычную схему "И", на входы которой подаются сигналы А и В.
--------
А ---| & |
В ---| |---- F
-------

0 0

3 года назад