<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
<u>Примеры</u>
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13
begin
//1 вариант
for var i := 0 to 100 do
if i.isEven then Print(i);
Println;
//2 вариант
foreach var x in Range(0, 100, 2) do
Print(x)
end.
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()</span>
{
<span> const double Pi = 3.14;</span>
<span> double R,V,S;</span>
<span> cout << "Введите радиус шара: \n";</span>
<span> cin >> R;</span>
<span> V = (4/3)*Pi*(R*R*R);</span>
<span> S = Pi*(R*R);</span>
<span> cout << "Объем шара = " << V << " Площадь круга = " << S << " Соотношение " << V/S << " к " << 1 << endl ;</span>
<span>}</span>
Решение в приложенном файле.
Ответ 78
Var
x:real;
begin
x:=-1.23;
while x<=6.23 do begin
if x<0 then
Writeln('X=',x:5:2,', логарифм определен только для X>0')
else
Writeln('X=',x:5:2,', Y=',5.3*sqrt(abs(x*x*x))+cos(ln(x)+12.6));
x:=x+0.95
end
end.
Результаты
X=-1.23, логарифм определен только для X>0
X=-0.28, логарифм определен только для X>0
X= 0.67, Y=3.8400812285669
X= 1.62, Y=11.7979662317412
X= 2.57, Y=22.3951919304867
X= 3.52, Y=35.2768703313243
X= 4.47, Y=50.1281674989484
X= 5.42, Y=66.7243610613755