Var n:integer;
Begin
Read(n);
Case n of
1,3,5,7,8,10,12:n:=31;
4,6,9,11:n:=30;
2:n:=28;
else n:=0;
End;
Write(n)
End.
<span>В 1895 году. ( <span>Приёмник Попова )</span></span>
program area;
var
a:integer; // сторона а
b:integer; // сторона b
S:integer; // площадь прямоугольника
P:integer; // периметр прямоугольника
begin
write("Введите а: "); // выводим сообщение
readln(a); // получаем значение а
write("Введите b: "); // выводим сообщение
readln(b); // получаем значение b
S:=a*b; // вычисляем площадь
P:=a*2+b*2; // вычисляем периметр
write("Площадь равна:", S); // выводим сообщение
write("Периметр равен:", P); // выводим сообщение
end.
#include <stdio.h>
#define M_PI 3.14159265358979323846 //определение числа пи
int main() { double r, a; //а - сторона квадрата, r - радиус круга scanf("\%lf", &r); scanf("\%lf", &a); if (M_PI*r*r > a*a) printf("\%lf", M_PI*r*r); else printf("\%lf", a*a); return 0;}