Var
S,a:real;
k:integer;
Begin
a:=8;
k:=0;
Repeat
k:=k+1;
S:=S+a;
a:=a*1.1;
Until S>=40;
WriteLn('k = ',k)
End.
Int get_lessons(int week){
if(week < 1 || week > 7) return 0; // Если ввели не номер дня недели
else if (week == 1) return 6;
else if (week == 2) return 6;
else if (week == 3) return 6;
else if (week == 4) return 6;
else if (week == 5) return 7;
else if (week == 6) return 0;
else return 0;
}
65536=2 в 16 степени, значит 1 пиксель кодируется 16 битами (разрешение)
Всего пикселей = 640*480 = (2 в 7)*5*(2 в 5)*15=(2 в 12)*75
Весь объём = (2 в 12)*75*16=(2 в 16)*75=600 кбайт
Var
s: string := 'Мышки ели шишки.';
a: set of char := ['а'..'я', 'ё'];
n, i: integer;
begin
s := LowerCase(s) + ' ';
for i := 2 to Length(s) do
if not (s[i] in a) and (s[i-1]='и') then
n := n + 1;
writeln(n);
<span>end.</span>
<span>1.В кастрюлю налить кефир.
2.</span><span>Вылить молоко
3.</span><span>Добавить сливки.
</span><span>4.Вбить яйца.
</span><span>5,Положить соль.
</span><span>6,Всыпать сахар.
</span><span>7,Всыпать разрыхлитель.
</span><span>8.Добавить муку. Тесто по консистенции должно напоминать жидкую сметану.
</span>9.Все как следует перемешать и оставить на час при комнатной температуре, затем убрать на ночь в холодильник<span>. Если планируете выпекать сразу, дайте тесту постоять минут 15-20 и приступайте к выпечке.
</span><span>10,Сковороду накалить, смазать маслом
</span><span>11,Выливая небольшое количество теста распределять его по всей поверхности сковороды.
</span><span>12,Выпекать с двух сторон до золотистого цвета, буквально по полминутки.
</span><span>13,Готовые блины складываем стопкой, промазывая каждый блин сливочным маслом.
</span><span>14,Подать блины к столу со сметаной, вареньем, медом или сгущенкой.</span>