Про синтаксис сказать ничего не могу, вроде правильно
объем вычислен верно, а при вычислении площади ты вичислил только боковую площадь цилиндра, и забыл про круглые торцы, их тоже надо прибавить, т.е. S:=2*pi*r*h+2*pi*r*r
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
Writeln('S=',pi*sqr(ReadReal('r=')):0:5)
end.
<u><em>Тестовое решение:</em></u>r= 12.7
S=506.70748
<em>И снова - приятно, когда кратко))
// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var w:=ReadAllText('in.txt'); w.Println;
var s:=w.MatchValues('\b[A-Za-z]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Eng.txt',s);
s:=w.MatchValues('\b[А-Яа-яЁё]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Rus.txt',s);
end.
<u>Пример (читаем in.txt, пишем в Eng.txt и Rus.txt)</u>
The Флегматичная ЭтА QuICk веРБлЮдица broWN ЖУЕТ fox JuMpS у подъезда over The ЗаСыХающИЙ LAZY ГорькиЙ dog шиПоВНиК
The QuICk broWN fox JuMpS over The LAZY dog
Флегматичная ЭтА веРБлЮдица ЖУЕТ у подъезда ЗаСыХающИЙ ГорькиЙ шиПоВНиК
Тема:
1.осень
2.лучшая техника 2016
3.новая техника 2016
4.стоит ли покупать новый айфон 7
5.почему дети так не любят школу?
6.я ♥ информатику
7.что я буду делать на осенних каникулах?
