Ответы
Ответ дал:
0
Ответ:
Объяснение:
1) A- перед else не нужна ';'
Б-y:=a+3; правильно будет так (нужно закрыть выражение)
B) (n<10) взять в скобки и после writeln('Истинна'); (поставить ;)
2)var x,i:Integer;
begin
readln (x);
if x>=0 then
writeln ('Положительное');
if x<0 then
writeln ('Отрицательное');
end.
3)
var x:Integer;
begin
readln (x);
if (x>=0) and (x mod 2=0) then
writeln ('Да')
else
writeln ('Нет');
end.
Вас заинтересует
1 год назад
7 лет назад