Ответы
Думаю, что отдельно писать программу лишь для оператора присвоения как-то тупо, поэтому объединим с условным оператором.
№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.
Что-то я сложные программы какие-то написал, если надо попроще, то напиши в комменты)
