Uses crt; var
p: byte;
a,b,c,d:real;
begin
cls;
write('1) Два в третьей степени = 2; 4;8 ? = ');
readln(a);
write('2) 2-1 = 1; 2; 3 ? = ');
readln(b);
write('3)какой сейчас год? = 2100; 2111,2013 ? = ');
readln(c);
write('4)12+1 = 12; 13;14 ? = ');
readln(d);
if a=8 then begin
write('1) Правильно!');
p:=p+1;
end;
else write('1) Неправильно (: ');
if b=1 then begin
write('2) Правильно!');
p:=p+1;
end
else write('2) Неправельно (: ');
if c=2013 then begin
write('3) Правильно!');
p:=p+1;
end
else write('3) Неправильно (: ');
if d=13 then begin
write('4) Правильно!');
p:=p+1;
end
else write('4) Неправельно (: ')
Writeln('Получено',' ',p:2:1,' ',правильных ответов');
Readln;
end.
перевод с Pascal на Python
p: byte;
a,b,c,d:real;
begin
cls;
write('1) Два в третьей степени = 2; 4;8 ? = ');
readln(a);
write('2) 2-1 = 1; 2; 3 ? = ');
readln(b);
write('3)какой сейчас год? = 2100; 2111,2013 ? = ');
readln(c);
write('4)12+1 = 12; 13;14 ? = ');
readln(d);
if a=8 then begin
write('1) Правильно!');
p:=p+1;
end;
else write('1) Неправильно (: ');
if b=1 then begin
write('2) Правильно!');
p:=p+1;
end
else write('2) Неправельно (: ');
if c=2013 then begin
write('3) Правильно!');
p:=p+1;
end
else write('3) Неправильно (: ');
if d=13 then begin
write('4) Правильно!');
p:=p+1;
end
else write('4) Неправельно (: ')
Writeln('Получено',' ',p:2:1,' ',правильных ответов');
Readln;
end.
перевод с Pascal на Python
More Questions From This User See All