Ответы
Думаю, что отдельно писать программу лишь для оператора присвоения как-то тупо, поэтому объединим с условным оператором.
№3 а) б)
var
x : integer;
begin
writeln('Введите положительное число: ');
readln(x);
if x < 0 then //условный оператор
write('Вы ввели отрицательное число!')
end.
№4 а)
var
month : integer;
begin
readln(month);
if (month = 1) or (month = 2) or (month = 12) then
writeln('зима')
else if (month = 3) or (month = 4) or (month = 5) then
writeln('весна')
else if (month = 6) or (month = 7) or (month = 8) then
writeln('лето')
else if (month = 9) or (month = 10) or (month = 11) then
writeln('осень')
else
writeln('неверно введен номер месяца');
end.
№4 b)
//давайте посчитаем количество цифр в числе
var
counter, x : integer;
begin
readln(x);
counter := 0;
while x > 0 do
begin
counter := counter + 1;
x := x div 10;
end;
write('Количество цифр: ',counter);
end.
Что-то я сложные программы какие-то написал, если надо попроще, то напиши в комменты)
![](https://st.uroker.com/files/57c/57c091f30ea3b7c4212348e72af181c1.png)
![](https://st.uroker.com/files/9f2/9f2a3a34498c926a496e0d6cfb89d1db.png)
![](https://st.uroker.com/files/24f/24f6ba7d906d4794d1a1f2d9224285c5.png)