Var s,r:real; //делаем переменные
begin
readln(r); //считываем радиус
s := pi * r ^ 2; //высчитываем площадь
writeln (s); //сообщаем площадь
end.
Поищи в Викапедии там внизу.
<h2>Алгоритм решения</h2>
Почти никакой математики - проходим по всем дням в году, начиная с первого дня, проверяем условия, обновляем ответ.
<h3>Детали</h3>
Для удобства заведем константный массив чисел - количество дней в каждом месяце. С его помощью мы будет перескакивать из последнего дня одного месяца в первый день следующего.
<em>Нам </em><em>не нужно </em><em>переходить из декабря в январь!</em>
Также заведем массив строк, хранящий названия каждого месяца.
Будем поддерживать номер текущего дня, номер текущего месяца и каким днем недели является текущий день. Текущий день и день недели у нас нумеруются с единицы, месяц - с нуля.
Пока мы не прошли весь декабрь, проверяем условия. Первый вариант: dayInWeek == суббота, day == 5 или day == 6. Второй вариант: dayInWeek == четверг, day % n == 0.
Пытаемся перейти на следующий день. Если следующий день начнется уже в следующем месяце, увеличим месяц, день сбросим до единицы. Ну и обновим день в неделе: dayInWeek = dayInWeek % 7 + 1.
Var Y: array [1..11] of integer;
var i, sum, n: integer;
begin
randomize;
for i:=1 to 11 do begin
Y[i]:=-10+random (21);
write (Y[i], ' ');
end;
sum:=0;
for i:=1 to 11 do begin
if (i mod 2<>0) and (Y[i]<0) then sum:=Y[i]+sum; //№1
if i mod 2<>0 then Y[i]:=Y[i]*Y[i]; //№2
if (i mod 2=0) and (Y[i]=1) then inc (n); //№3
end;
writeln;
writeln ('Сумма =', sum);
writeln ('Количество 1 на четных местах =', n);
<span>end.
</span>
