Верна ли следующая программа? Если да, то сколько операторов она содержит, если нет, то почему: var x,y:integer; begin readln(y);; x:=0; if x>0 then; writeln(x,y); readln; end
Answers & Comments
ZiTOS
Var x, y: integer; begin readln(y); x := 0; if x>0 then (двоеточие не надо) writeln(x, y); end.
Answers & Comments
begin
readln(y);
x := 0;
if x>0 then (двоеточие не надо)
writeln(x, y);
end.