Вариант 12 дано словесное описание алгоритма: k: =0; начало цикла для i от 1 до 3 k: =k+3 конец цикла; вывод k. 1. составить блок-схему в виде циклического алгоритма. 2. определить значение переменной k после окончания цикла. 3. написать программу на языке паскаль с использованием оператора цикла с параметром.

1. Блок-схема - в прилагаемом файле.
2. 
k = 0
i = 1; k = k+3 = 0+3 = 3
i = 2; k = k+3 = 3+3 = 6
i = 3; k = k+3 = 6+3 = 9

3.
var i, k: integer;
begin
k:=0;
for i:=1 to 3 do k:=k+3;
writeln('k = ', k);
end.

Результат:
k = 9

Var
A,B,C:integer;
Begin
C:=365;
Read(A,B);
if A>1 then C:=C-31;
if A=1 then C:=C-B;
if A>2 then C:=C-28;
if A=2 then C:=C-B;
if A>3 then C:=C-31;
if A=3 then C:=C-B;
if A>4 then C:=C-30;
if A=4 then C:=C-B;
if A>5 then C:=C-31;
if A=5 then C:=C-B;
if A>6 then C:=C-30;
if A=6 then C:=C-B;
if A>7 then C:=C-31;
if A=7 then C:=C-B;
if A>8 then C:=C-31;
if A=8 then C:=C-B;
if A>9 then C:=C-30;
if A=9 then C:=C-B;
if A>10 then C:=C-31;
if A=10 then C:=C-B;
if A>11 then C:=C-30;
if A=11 then C:=C-B;
if A>12 then C:=C-31;
if A=12 then C:=C-B;
Write(C);
End.

var a, d, count, i: integer;   function CountDay(a: integer): integer; begin   if (a >= 1) then countday := 31;   if (a >= 2) then countday := 28;   if (a >= 3) then countday := 31;   if (a >= 4) then countday := 30;   if (a >= 5) then countday := 31;   if (a >= 6) then countday := 30;   if (a >= 7) then countday := 31;   if (a >= 8) then countday := 31;   if (a >= 9) then countday := 30;   if (a >= 10) then countday := 31;   if (a >= 11) then countday := 30;   if (a >= 12) then countday := 31; end;   begin   count := 0;   write('Введите месяц: ');   readln(a);   write('Введите день: ');   readln(d);   if (a <= 0)or(a > 12)or(d <= 0)or(d > countday(a)) then     writeln('Ошшибка в данных!')   else   begin     for i:=a to 12 do       count := count + countday(i);       count := count - d;       writeln('До нового года осталось ', count, ' дней.');   end; end.