Var r,v:real;
begin
write('R = ');
readln(r);
v:=4/3*pi*r*r*r;
writeln('V = ',v:5:2);
end.
Пример:
<span>R = 3
V = 113.10</span>
Методом тыка понимаем что удобоваримое получается при использовании второй таблицы
Получаем фразу
"Собрание второго мая"
числовые слова наверное "второго" = 2, "мая" = 5 (порядок месяца в году)
2 + 5 = 7 (и в восьмиричной тоже)
1)Выделите текст или ячейки с текстом, который нужно изменить. Чтобы выделить весь текст в документе Word, нажмите клавиши CTRL+A.
2)На вкладке Главная в поле Размер шрифта выберите нужный размер шрифта.
Program n1;
var a,b,c,d: real;
begin
readln(a,b,c,d);
if (a*b>c*d) then
begin
a:=a*2;
b:=b*2;
end else begin
c:=c*2;
d:=d*2;
end;
write(a,' ',b,' ',c,' ',d);
end.
Я, конечно, не художник, но надеюсь это похоже на ёлки.
uses GraphABC;
begin
For var i := 0 to 4 do
begin
SetBrushColor(clGreen);
FillPie(80 + 120 * i, 100, 25, -50, -130);
FillPie(80 + 120 * i, 115, 40, -50, -130);
FillPie(80 + 120 * i, 135, 60, -50, -130);
FillPie(80 + 120 * i, 160, 75, -50, -130);
SetBrushColor(clBrown);
FillRectangle(74 + 120 * i, 234, 86 + 120 * i, 245)
end;
end.