If integer. Var begin. int var 1;. что делает эта программа? var a, s: integer; begin writeln (‘а=’);readln (a);s:=a*a;writeln (s); end.. if pos(wordtofind, line) > 0 then.

If integer. Var begin. int var 1;. что делает эта программа? var a, s: integer; begin writeln (‘а=’);readln (a);s:=a*a;writeln (s); end.. if pos(wordtofind, line) > 0 then.
1 / 40