Program z1;
var s,p,i:integer;
begin
s:=0;
p:=1;
for i:= 1 to 10 do
if i mod 2 =0 then s:=s+i
else p:=p*i;
writeln('сумма четных',s);
writeln('произведение нечетных',p);
end.
Var a, b: integer;
begin
read(a, b);
writeln(a+b);
writeln(IntToStr(a)+IntToStr(b))
end.
//Pascal ABC.NET Версия 2.2 Сборка 790
var ar:array[1..12] of integer;
i,s:int64;begin;
s:=1;
for i:=1 to 12 do
begin;
readln(ar[i]);
if ar[i]>50 then s*=ar[i];
end;
writeln(s);
<span>end.
Пример ввода:
1 2 3 4 5 6 7 50 50 51 51 <span>70
Пример вывода:
182070
</span></span>