Начало - включить телевизор - пойти на кухню - открыть шкафчик - взять пакетик с попкорном - прочитать инструкцию - поставить попкорн в микроволновку - подождать 3 минуты - достать попкорн - высыпать в чашку - вернуться в комнату - взять пульт - включить фильм - конец
И еще после последней строчки
кон
Для радиуса описанной окружности имеется соотношение
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>var
a,b,c,R,dA,dB,dC:real;
begin
Writeln('Введите углы A,B в градусах и радиус R');
Read(dA,dB,R);
dC:=180-dA-dB;
a:=2*R*sin(dA*Pi/180);
b:=2*R*sin(dB*Pi/180);
c:=2*R*sin(dC*Pi/180);
Writeln('Угол C: ',dC:0:2);
Writeln('a=',a:0:5);
Writeln('b=',b:0:5);
Writeln('c=',c:0:5)
end.
<u>Пример</u>Введите углы A,B в градусах и радиус R
30 70 50.0
Угол C: 80.00
a=50.00000
b=93.96926
c=98.48078
program raf105;
var
t:array[1..12] of real;
i:integer;
begin
for i:=1 to 12 do
begin
writeln('Введите среднюю температуру месяца №',i);
readln(t[i])
end;
writeln('Средняя температура зимних месяцев: ',(((t[12]+t[1]+t[2]) / 3):0:1));
writeln('Средняя температура весенних месяцев: ',(((t[3]+t[4]+t[5]) / 3):0:1));
writeln('Средняя температура летних месяцев: ',(((t[6]+t[7]+t[8]) / 3):0:1));
writeln('Средняя температура осенних месяцев: ',(((t[9]+t[10]+t[11]) / 3):0:1));
end.
<u><em>Язык PascalABC</em></u>