Сформировать массив из 10 чисел по следующим правилам: первый элемент равен 3, второй 4, а каждый следующий равен среднему арифметическому двух предыдущих написать )
На Паскале var a:array[1..10] of real; i:integer; begin a[1]:=3; a[2]:=4; for i:=3 to 10 do a[i]:=(a[i-2]+a[i-1])/2; for i:=1 to 10 do write(a[i],' '); end.
На C++ #include <iostream> void main() { float a[10] = { 3,4 }; for (int i = 2; i < 10; i++) a[i] = (a[i - 2] + a[i - 1]) / 2; for (int i = 0; i < 10; i++) std::cout << a[i] << '\t'; system("pause"); }
Хосспаде Иегове, да научитесь же вы язык указывать! Perl. 2. @array; #Формат ввода не задан, будем считать что он уже заполнен. $min = $array[0]; $max = $array[0]; for $i (@array) { $min = $i if ($i < $min); $max = $i if ($i > $min); } %hash = map {$_ => 1} @array; for $i in ($min..$max) { print "$i " if (!(exists $hash{$i})); } 3. use Quantum::Superpositions; #Модуль для квантовых вычислений, жутко удобная штука. @primes; $n = <>; push @primes, ($i) if ($i % all(2..sqrt($i)+1) != 0) i for $i (2..$n); #ответ в массиве @primes. 4. На этот вопрос я не так давно отвечал, ну ладно. $n = <>; @multipliers; for $i (2..$n) { if (!($n % $i)) { push @multipliers, ($i); $n /= i; } } #ответ в массиве @multipliers. А теперь укажите-таки язык и я, если с этим языком знаком напишу нормальный, не извращённый ответ.
Хосспаде Иегове, да научитесь же вы язык указывать! Perl. 2. @array; #Формат ввода не задан, будем считать что он уже заполнен. $min = $array[0]; $max = $array[0]; for $i (@array) { $min = $i if ($i < $min); $max = $i if ($i > $min); } %hash = map {$_ => 1} @array; for $i in ($min..$max) { print "$i " if (!(exists $hash{$i})); } 3. use Quantum::Superpositions; #Модуль для квантовых вычислений, жутко удобная штука. @primes; $n = <>; push @primes, ($i) if ($i % all(2..sqrt($i)+1) != 0) i for $i (2..$n); #ответ в массиве @primes. 4. На этот вопрос я не так давно отвечал, ну ладно. $n = <>; @multipliers; for $i (2..$n) { if (!($n % $i)) { push @multipliers, ($i); $n /= i; } } #ответ в массиве @multipliers. А теперь укажите-таки язык и я, если с этим языком знаком напишу нормальный, не извращённый ответ.
var
a:array[1..10] of real;
i:integer;
begin
a[1]:=3;
a[2]:=4;
for i:=3 to 10 do
a[i]:=(a[i-2]+a[i-1])/2;
for i:=1 to 10 do
write(a[i],' ');
end.
На C++
#include <iostream>
void main()
{
float a[10] = { 3,4 };
for (int i = 2; i < 10; i++)
a[i] = (a[i - 2] + a[i - 1]) / 2;
for (int i = 0; i < 10; i++)
std::cout << a[i] << '\t';
system("pause");
}