Задача 2 (повышенный уровень). Вычисление площади поверхности цилиндра Определить, сколько банок краски потребуется, чтобы окрасить поверхность бака цилиндрической формы. Покрасить надо и
снаружи, и изнутри.
Пользователь вводит диаметр и высоту бака, а также какую площадь можно окрасить одной банкой краски.
Чтобы узнать количество требуемых банок краски, надо разделить окрашиваемую площадь на площадь, окрашиваемую одной
банкой.
Площадь бака представляет собой сумму площадей двух кругов (крышки и дна бака) и площади самой цилиндрической
поверхности. Кроме того, если бак также красится изнутри, найденную площадь следует умножить на 2.
Рекомендации:
Площадь круга через диаметр равна рi *d2/4
Площадь цилиндра: pixd: h, где d иһ- диаметр и высота цилиндра.
по введенному натуральному числу n(n<=100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n:'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'
var n:integer;
begin
clrscr;
repeat
write('Введите число от 1 до 100 N = ');
readln(n);
until n>0;
case n of
11..14:write('сидело ',n,' ворон');
1..10,15..100: case n mod 10 of
1:write('На дереве сидела ',n,' ворона');
2..4:write('На дереве сидели ',n,' вороны');
0,5..9:write('На дереве сидело ',n,' ворон');
end
else write('Ветка обломилась!');
end;
readln;
end.
Если что-то будет не так - напиши, испралю. У меня простог нет возможности проверить, выполняется ли...
program string_7;
var s:string;
k,l,i:integer;
begin write('введите строку:');
readln(s);k:=0;l:=0;
for i:=1 to length(s) do
begin if s[i]='н' then k:=k+1;
if s[i]='м' then l:=l+1
end;
writeln('н=',k);
writeln('м=',l);
if k>l then
writeln ('Больше букв Н');
if k<l then
writeln ('Больше букв м');
if (k = 0) and (l = 0) then
writeln ('Таких букв нет');
end.
Так будет првильней... Элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))