12 3 4 5 6 7 8 9 10 11 12 13 uses crt; var s : real; i ,n : integer; begin readln (n ); s : = 0; for i : =1 to n do s : =s + ( exp ( ln (3 ) / exp ( ln (2 ) *i ) ) ); writeln (s /n ); readkey end.
Ответ дал: Гость
программа на паскале:
program a1;
var i, j : integer;
s : real;
a: array [1..5, 1..6] of real;
b: array [1..6] of real;
begin
for i: =1 to 5 do
for j: =1 to 6 do
readln(a[i,j]);
for j: =1 to 6 do
begin
s: =0;
for : =1 to 5 do
s: =s+a[i,j];
b[j]: =s
end;
write ('полученный массив в: ');
for j: =1 to d do
write(b[j]);
readln
end.
Ответ дал: Гость
что красного цвета в корзине нет, что одним шаром стало меньше, что в корзине стало больше места, да тут можно писать и писать! - включи воображение!
Ответ дал: Гость
ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот
Популярные вопросы