05
Июнь!ДАЮ 50 БАЛЛОВ! Переведите программу с Pascal на Python: var a:array[1.40000,1.2] of byte; f:text; n,i,j,k:integer;…
Предмет: Информатика
Уровень: 5 - 9 класс
!ДАЮ 50 БАЛЛОВ!
Переведите программу с Pascal на Python:
var a:array[1.40000,1.2] of byte;
f:text;
n,i,j,k:integer;
begin
assign(f,’input.txt’);
reset(f);
read(f,n);
for i:=1 to n do
read(f,a[i,1],a[i,2]);
close(f);
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if(a[i,1]=a[j,1])or(a[i,1]=a[j,2])
or(a[i,2]=a[j,1])or(a[i,2]=a[j,2])then inc(k);
assign(f,’output.txt’);
rewrite(f);
write(f,k);
close(f);
end.
var a, b, s, i: integer;
begin
read(a, b);
s := 0;
for i := a to b do
if (i mod 2 = 0) then
s := s + i
else
s := s — i;
writeln(s);
end.