Images BEGIN WRITELN

< Previous image
Image - 73
Next image >
Begin writeln. 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