8 Ячеек
B2|C2
B3|C3
B4|C4
B5|C5
Var A, gradus, minut, N: real;
Begin
Writeln('Введите A градусов');
readln(A);
Writeln('До какой температуры остужать:');
readln(N);
gradus:=100-A;minut:=1;
While (gradus>N) do
Begin
A:=A*(1-0.15);
gradus:=gradus-A;
minut:=minut+1;
end;
Writeln('Кипяток остынет до ',N,' градусов через ', minut, ' минут');
readln();
<span>end.</span>
Program gt;
var a,b,c,s:real;
begin
read(a,b,c);
if(abs(a)>1)or(abs(b)>1)or(abs(c)>1) then s:=(a+b+c)/3 else s:=a*b*c;
writeln(s);
end.
Разметка страницы ---> цвет страницы , это фон листа.
следующие , что ? Буквы ? Если буквы то там , буква "А" , тыкаешь и выбераешь.
Легко-
1)набираешь в обоих воду
2)Выливаешь В
3)Наливаешь А в В
4)Набираешь воду в А
5)Переливаешь воду в В
Так получается А-100 мл