Пи - константа и (примерно) равна 3,14, а для возведения в квадрат в паскале есть крутая штука - sqr(R); . во второй
var x,y:real;
begin
writeln('введите число');
read(x);
y:= 1/(x+1);
write(x);
<span>end.</span>
1) (первые 2 скриншота)
#include <iostream>
using std::cout;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;
int main()
{
int a[10];
srand(time(0));
for(int i = 0; i < 10; i++)
{
a[i] = rand() % 101;
cout << a[i] << ' ';
}
cout << endl << endl;
for(int i = 0; i < 10; i++)
{
if(a[i] % 3 == 0 && a[i] > 13)
{
cout << a[i] << ' ';
}
}
cout << endl;
return 0;
}
2)
#include <iostream>
using std::cout;
using std::endl;
int main()
{
double a[10] = { 1.2, 0.0, -5.8, -0.4, 10.5, 14.6, -6.3, -8.8, -4.1, 0.0 };
int A = 0, B = 3;
for(int i = 0; i < 10; i++)
{
cout << a[i] << ' ';
if(a[i] < 0.0)
{
a[i] += a[A];
}
else if(a[i] == 0)
{
a[i] -= B;
}
}
cout << "\n\na(index) = " << A << ", b = " << B << "\n\n";
for(int i = 0; i < 10; i++)
{
cout << a[i] << ' ';
}
cout << endl;
return 0;
}
Ответ:
7
Объяснение:
p:=Pos('o',s);
индекс начала подстроки 'o' в строке s, база = 1
Тебе нужно это число разделить на 1024 и ты получишь Мбайт =0.2373
Начало
Встал.
Почистил зубы.
Съел завтрак.
Оделся.
Вышел.
Конец.