Автомат получает на вход трёхзначное десятичное число, в котором нет цифр больше, чем 7. По этому числу строится новое число по
следующим правилам.
1. Вычисляется сумма первой и второй, а также второй и третьей
цифры.
2. Полученные два числа записываются друг за другом в порядке
убывания (без разделителей).
Определите, какое из следующих чисел может быть результатом работы автомата.
1) 1510 2) 1406 3) 1210 4) 1014
#include <iostream>
#include <time.h>
#include <iomanip>
using namespace std;
int main()
{
int a[20];
int i, ibeg, iend, s;
setlocale(LC_ALL, "Russian");
srand(time(NULL));
for (i = 0; i < 20; i++) {
a[i] = (double)rand() / (RAND_MAX + 1) * 10;
cout << a[i] << " ";
}
ibeg = -1;
for (i = 0; i < 20; i++) {
if (a[i] == 0) {
ibeg = i;
break;
}
}
iend = -1;
for (i = 20; i > 0; i--) {
if (a[i] == 0) {
iend = i;
break;
}
}
if (ibeg != -1 && iend != -1) {
s = 0;
for (i = ibeg + 1; i < iend; i++)
s += a[i];
cout << "\nСумма = " << s << "\n";
}
else
cout << "\nНулевые элементы не найдены.\n";
}
1)а
var a:real;
begin
readln(a);
a1 := a*a; /получили а^2
a := a1*a1; /получили a^4
a := a1*a*a; /получили a^(4+4+2)
writeln(a);
end.
1б)
var x:real;
i:integer;
begin
readln(a);
a1 := a*a*a; /получили а^3
a := a1*a1*a1; /получили a^9
a := a*a1*a1; /получили а^(9+3+3)
writeln(a);
end.
2)
var a:real;
begin
readln(a);
writeln('высоты равны', a*a*sqrt(3)/4*a);
writeln('Радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4);
writeln('Радиус описанной окружности', a*a*sqrt(3)/4*2/3*a);
end.
3)var a:real;
begin
readln(a);
writeln('В килобайтах' a/1024);
writeln('В мегабайтах' a/(1024*1024));
end.