Program pr1;
var i,b:integer; a,s:real;
begin
readln(b);
for i:=1 to b-9 do
begin
readln(a);
if (a mod 3 = 0) and (a mod 2 <> 0) then
s:=s+a;
end;
writeln(s);
end.
Ответ 3 ахах фотки нельзя кидать
<u>Немецкий ученый Лейбниц</u><span>, развив идею Паскаля, </span><u>создал механический арифмометр</u>, <span>на котором можно было выполнять все четыре арифметические операции с многозначными числами. Позднее арифмометр многократно совершенствовался, </span><u>в России изобретателями П.Л. Чебышевым и В.Т. Однером были также созданы арифмометры.</u>
Компьютер, робот, телефон, ноутбук
Буквы: м, р, о, т, н, о
Устройство вывода информации: монитор
Пропущена буква И
Var a:array[1..10] of integer;
i,k:integer;
begin
writeln('vedite 10 chisel masiva');
k:=0;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do begin
if (a[i]=0) then k:=k+1;
end;
writeln('kolichestvo nuley ',k);
writeln('massiv v obratnom porydke');
for i:=10 downto 1 do
write(' ',a[i]);
end.