X=int (2) y=float (2) z=complex (2,2) пытаюсь вписать код в python а выдает SyntaxError: multiple statements found while compiling a single statement Что делать?!
//PascalABC.NET 3.2 сборка 1318 //Очередное решение "в лоб"
Var n,i,j,max:integer; s,curr:string; b:boolean=false; begin readln(n); max:=-1; s:=inttostr(n); for i:=1 to length(s) do begin curr:=''; for j:=i downto 1 do begin curr:=s[j]+curr; if frac(sqrt(strtoint(curr)))=0 then begin b:=true; if sqrt(strtoint(curr))>max then max:=round(sqrt(strtoint(curr))); end; end; end; if b then writeln(max) else writeln('0'); end.
Пример ввода 1: 164 Пример вывода 1: 8 Пример ввода 2: 523 Пример вывода 2: 0
Советы, решившему купить компьютерЗнания и умения, позволяющие уверенно чувствовать себя за клавиатурой ПК, нельзя почерпнуть из программы вечерних новостей, занять в долг у "шибко грамотного" соседа или получить "обучением во сне", уснув с толстой книжкой под подушкой. Умение работать с компьютером приобретается... в работе с ним, в длительной борьбе с "железом", иногда - удачной, иногда - не очень. Трудности могли бы остановить не одного начинающего пользователя, но знание компьютера, работа с основными офисными или, например, бухгалтерскими программами, стали в наше время почти столь же необходимым требованием при приеме на работу, как когда-то умение читать-писать. Магически влекущий Интернет тоже сыграл свою роль - чтобы получить "ключи" от огромного виртуального мира этой всемирной сети, многие готовы обучаться столько, сколько потребуется. Мало этого, фактически компьютер нужен всем тем, кто не намерен отстать от стремительно развивающейся действительности. Но каждому требуется свой ПК, для решения определенного круга задач, более или менее доступный по цене и, конечно же, как можно более надежный и как можно менее вредный для оставшегося после покупки здоровья. Понятно, что "повезет-не повезет" в этом случае не подходит - выбор должен вестись с четким пониманием ЧТО и КАК выбираем.
//Очередное решение "в лоб"
Var
n,i,j,max:integer;
s,curr:string;
b:boolean=false;
begin
readln(n);
max:=-1;
s:=inttostr(n);
for i:=1 to length(s) do
begin
curr:='';
for j:=i downto 1 do
begin
curr:=s[j]+curr;
if frac(sqrt(strtoint(curr)))=0 then
begin
b:=true;
if sqrt(strtoint(curr))>max then max:=round(sqrt(strtoint(curr)));
end;
end;
end;
if b then writeln(max) else writeln('0');
end.
Пример ввода 1:
164
Пример вывода 1:
8
Пример ввода 2:
523
Пример вывода 2:
0