Если я что-то неправильно понял или сделал, пожалуйста, скажите об этом -- исправлю.
var
a1:= 2.0;
i,n:integer;
otv:real;
Begin
Write('Укажите, какой член последователности вы хотите найти: ');
Read(n);
if n=1 then write('a1 = 2') else
Begin
for i:=2 to n do
Begin
otv:=2+(1/a1);
a1:= otv;
End;
write('a'+n+' = '+otv);
End;
End.
Блок-схема - в прилагаемом файле.
Ответ: перебор всегда работает но возможно не рационален
int main()
{
SetConsoleCP(1251);// установка кодовой страницы win-cp 1251 в поток ввода
SetConsoleOutputCP(1251); // установка кодовой страницы win-cp 1251 в поток вывода
setlocale(LC_ALL, "Russian");
int mass[4][5];
int max = 0;
int count = 0;
for (int i = 0; i < 3; i++)
{
for (int j = 0; j < 4; j++)
{
mass[i][j] = rand() % 5;
cout << mass[i][j] << " ";
}
cout << endl;
}
for (int i1 = 0; i1 < 3; i1++)
{
for (int j1 = 0; j1 < 4; j1++)
{
for (int i = 0; i < 3; i++)
{
for (int j = 0; j < 4; j++)
{
if (mass[i1][j1] == mass[i][j])
{
count++;
}
}
if ((count > 1) && (mass[i1][j1] >= max))
{
max = mass[i1][j1];
}
count = 0;
}
}
}
cout << endl << max;
19 из 10 в 2
делим 19 на 2, записываем остатки, получившиеся значения записываем в обратном порядке
19/2=9 ост 1
9/2=4 ост 1
4/2=2 ост 0
2/2=1 ост 0
19 из 10 в 8
аналогично, но делим на 8
19/8=2 ост 3
19 из 10 в 16
19/16=1 ост 3
561 из 10 в 2
561/2=280 ост 1
280/2=140 ост 0
140/2=70 ост 0
70/2=35 ост 0
35/2=17 ост 1
17/2=8 ост 1
8/2=4 ост 0
4/2=2 ост 0
2/2=1 ост 0
561 из 10 в 8
561/8=70 ост 1
70/8=8 ост 6
8/8=1 ост 0
561 из 10 в 16
561/16=35 ост 1
35/16=2 ост 3
Ответ:
program h;
uses crt;
var a, b, c: Integer;
begin
ReadLn(a, b, c);
if a+b+c>=200 then WriteLn('Выходит')
else WriteLn('Не выходит');
end.
Объяснение:
Первая строка: "h" можно заменить - это название программы
var - объявление переменных, Integer - целочисленные
readln - ввод трёх чисел
writeln - вывод ответа