Var day:integer; begin writeln('Введите номер дня недели(1-7):'); readln(day); case day of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье'); else writeln('Неверно введён день недели!'); end;end.
Возможно я не прав но вот
а) 111101
б) 010111
в) 111011010
г) 100000
Какой вопрос? Сразу пиши, чтобы понятно было
1.Боковая площадь пов-ти конуса
var
r, l: integer;
begin
readln(r, l);
writeln(pi * r * l);
end.
2. Полная площадь пов-ти конуса
var
r, l: integer;
begin
readln(r, l);
writeln(pi * r * (r+l));
end.
Примечание: r- радиус, l - образующая
Если l неизвестна,ее можно вычислить по формуле l = sqrt(r*r+h*h), где h - высота конуса