12 var 3 s : string; 4 begin 5 readln (s ); 6 while pos ( 'с' ,s )> 0 do delete (s ,pos ( 'с' ,s ) ,1 ); 7 writeln (s ); 8 end. не уверена,но по-моему так
Ответ дал: Гость
если есть д ш и в то это не куб а параллелипипед
var
a,b,c,r: real;
begin
readln(a,b,c,r);
if (2*r< a) and (2*r< b) and (2*r< c)
then writeln('поместится')
else writeln ('не поместится');
end.
для куба достаточно одного условия (2*r< a)
Ответ дал: Гость
(телефон) поверчу волшебный круг,- и меня услышит друг. (стол) под крышей-четыре ножки, над крышей-суп да ложки. хоть по размеру и мала, информацию хранит она. знаем все устройство это )
Популярные вопросы