C++
<span>#include<iostream>
using namespace std;
int main()
{
double r = 0.f, area = 0.f;
cout << "Enter radius of circle : ";
cin >> r;
area = 3.1415 * r * r;
cout<< "Area of circle : " << area;
<span>}</span></span>
Что сложного?
a:=10-4*2=2
b:=24/2*4=12*4=48
Ответ: 48
<h3>// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x=');
var n := ReadInteger('n=');
var (k, p, q, s) := (x * x, 1.0, 1.0, 0.0);
for var i := 1 to n do
begin
p *= k;
q *= 2 * i * (2 * i - 1);
s += p / q
end;
Println('Сумма =', s)
end.
Теоретически
1 символ 8 бит. 2500*8=20000 бит.
20000/7200=2,78 сек/стр
<span>90 сек / 2,78 = 32,37 стр. </span>
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Ex211a=class
public
constructor(fio,phone:string);
begin
var n:=Max(fio.Length,phone.Length);
Writeln((n+2)*'*');
Writeln('*',fio.PadRight(n),'*',NewLine,'*',phone.PadRight(n),'*');
Writeln((n+2)*'*')
end;
end;
type
Ex211b=class
public
constructor;
begin
var n:=ReadInteger('Введите целое число:');
Writeln('Результат равен ',n+10)
end;
end;
begin
new Ex211a('Иван Иванов','7-841-2666666');
new Ex211b
end.
<u>Пример</u>
***************
*Иван Иванов *
*7-841-2666666*
***************
Введите целое число: 18
Результат равен 28
