Var
a: array[1..10] of integer;
i, s, p: integer;
begin
for i:=1 to 10 do
readln(a[i]);
s:=0; p:=1;
for i:=1 to 10 do
if (a[i] mod 2 > 0) and (a[i] < 30) then
begin
s:=s+a[i];
p:=p*a[i];
end;
writeln(s);
writeln(p);
end.

0 0

4 года назад

Каков будет информационный объем книги, если в ней 200 страниц текста: на каждой странице 50 строк по 80 символов (текст закодир

Даниил00393939393 [55]

50 x 80 x 200 + 800 x 600 x 4 x 10 = 20 000 000 bytes = 19 531.25 kB = 19 MB

0 0

4 года назад

Постройте выражения для логических функций заданных таблицами истинности. Используйте разные методы и сравните их. ПОЖАЛУЙСТА С

АНОНИМКАмонинка

В ходе построение логически функции нужно по заданный таб

0 0

4 года назад

Примером передачи информации может служить процесс

феликс511

Разговора людей, написание письма

0 0

4 года назад