Верна ли следующая программа? Если да, то сколько операторов она содержит, если нет, то почему:
var x,y:integer;
begin
readln(y);;
x:=0;
if x>0 then;
writeln(x,y);
readln;
end.
Ответы
Ответ дал:
0
если убрать лишние точки с запятой то получится так
var
x, y: integer;
begin
readln(y);
x := 0;
if x > 0 then
writeln(x, y);
readln;
end.
Верна ли? А что есть критерием верности? Компилируется, не падает при исполнении, но по сути совершенно безсмысленна и потому наверно неверна)))
Операторов два - присвоения и сравнения
var
x, y: integer;
begin
readln(y);
x := 0;
if x > 0 then
writeln(x, y);
readln;
end.
Верна ли? А что есть критерием верности? Компилируется, не падает при исполнении, но по сути совершенно безсмысленна и потому наверно неверна)))
Операторов два - присвоения и сравнения
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад