Var n:integer;
begin
writeln('n=');
readln(n);
case n of
3,4,5:writeln('Весна');
6,7,8:writeln('Лето');
9,10,11:writeln('Осень');
1,2,12:writeln('Зима');
end;
<span>end.</span>
Если условие записано верно, то таблица истинности имеет такой вид (но само выражение не тождественно истинное!):
Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
var x: integer;
begin
write('Введите число: ');
readln(x);
if x mod 2=0 then write('число четное')
else write('число нечетное');
end.
Подписала решение на рисунках. (см. ниже)