1) Труп
2) Конопля
3) Маки
4) Гладиолусы
5) Пионы
6) Толчок рядом с пионами
Var
s:real;
i,n:longint;
begin
read(n);
for i:=1 to n do
s:=1/(2*i-1);
writeln(s);
end.
131(10)=10000011(2)
63(10)=111111(2)
255(10)=11111111(2)
Ответ:
#include <iostream>
using namespace std;
int main() {
for(short i = 10; i < 100; i++) {
for(short j = 10; j < 100; j++) {
if((i * i + j * j) % 13 == 0)
cout << i << " " << j << endl;
}
}
}
program raf105;
var i,min,kolN,sumN,sariN:integer;
a:array[1..30] of integer;
begin
writeln('Элементы массива:');
min:=99;
for i:=1 to 30 do
begin
a[i]:= random(1,60);
write(a[i],' ');
if (a[i]<min) and ((a[i] mod 4)=0)
then min:= a[i];
if ((a[i] mod 2)<>0)
then
begin
kolN:= kolN+1;
sumN:= sumN+a[i];
end;
end;
writeln;
if min=99
then min:=0;
sariN:= round(sumN/kolN);
writeln('Минимальное значение среди чётных элементов кратных четырём:');
writeln(min);
writeln('Среднее арифметическое среди нечётных элементов:');
writeln(sariN);
end.
<u><em>Язык программирования PascalABC</em></u>