Images PROCEDURE VAR BEGIN

< Previous image
Image - 77
Next image >
Procedure var begin. 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.
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.

See also