Думаю, что отдельно писать программу лишь для оператора присвоения как-то тупо, поэтому объединим с условным оператором.
№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.
Что-то я сложные программы какие-то написал, если надо попроще, то напиши в комменты)
Программы правда выводят не просто число, т.к. это не очень понятно получается, поэтому сначала выводится название того, что именно мы сосчитали.
Когда проверите работу программы, просто уберите текстовую часть вывода в конце, и тогда будет как в задаче- выводится только одно число.
1) кратные 4 и не кратные 5 (количество):
цел ч,п,н,к=0
алг
нач
вывод "количество чисел в последовательности= "
ввод п
вывод "ввод последовательности натуральных чисел:", нс
нц для н от 1 до п
вывод "число ", н, " из ", п, " = "
ввод ч
если mod (ч, 4) = 0 и mod (ч, 5) <> 0 то к := к+1 всё
кц
вывод "количество чисел кратных четырём, но не кратных пяти= ", к
кон
2) кратные 6 и оканчивающиеся на 6 (сумма):
цел ч,н=0,с=0
алг
нач
вывод "ввод последовательности натуральных чисел:", нс
нц
н := н+1
вывод "число №", н, " = "
ввод ч
если mod (ч, 6) = 0 и mod (ч, 10) = 6 то с := с+ч всё
кц при ч=0
вывод "сумма чисел кратных шести и оканчивающихся на шесть: ", с
кон
