Var a:array[1..10]of real;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10,100)/10;
write(a[i]:6);
end;
writeln();
for i:=1 to 10 do
write(sqr(a[i]):6);
<span>end.</span>
//Прога на языке Паскаль:
var a, sum: double;
begin
write ('Введите первоначальную стоимость газеты: ');
readln (a);
sum:=a*50+(1.2*a*150);
write ('Заработок продавца: ', sum);
end.
Система управления базами данных
<span>Это может быть Access или SQL Server</span>
Пусть х - искомое основание системы счисления
5х+3х+3=х²+х+3
х²-7х=0
х(х-7)=0
х=0 или х=7
основание системы счисления не может быть равным 0, следовательно х= 7
101₇ = 49+1=50 лет
50₇=35 дочерей
33₇ = 21+3=24 сына
113₇=49+7+3=59 детей
#include <iostream> // для операции вывода cout
using namespace std; // вместо 'std::' перед cout
int main() {
// цикл в промежутке [1; 9] с шагом 2 (1, 3, ...)
for (int i = 1; i <= 9; i += 2) {
cout << i << ' '; // вывод текущего числа
}
return 0; // возврат из основной функции
}