5 вопросов
нужно делить пополам:
1) <span>Загаданное число больше числа 16 (НАПРИМЕР да)
2) от 17 до 32. </span>Загаданное число больше числа 24 (да)
3) <span>Загаданное число больше числа 28 (нет)
4) </span><span>Загаданное число больше числа 26 (да)
5) Загаданное число больше числа 27? Если ДА, то это 28. Если НЕТ, то 27 </span>
#include <iostream>
int main()
{
int n = 0 ;
std::cin>>n;
double S= 0;
for(int i = 2; i<=n+1; ++i)
{
s = s+ 1/(double)i;
}
std::cout<<s;
return 0;
}
<span>Пример 1. Квадраты чисел от 2-х до 10-и.
</span>for x:=2 to 10 do WriteLn(x*x);
<span>Пример 2. Латинский алфавит.
</span>for ch:='A' to 'Z' do Writeln(ch);
<span>Пример 3. Использование цикла с downto.
</span>for i:=10 downto 1 do WriteLn(i);
<span>Пример 4. Использование составного оператора.
</span><span>for x:=1 to 10 do begin
y:=2*x+3;
WriteLn('f(',x,')=',y);
end;
</span>
водитель с автобусом и остановкой
автобус с водителем пассажиром контролером
пассажир с автобусомостановкой билетом
контролер с билетом и пассажиром
Ничего не сказано про повторяющиеся значения. Если не делать проверку на повторяющиеся значения, то вот программа (проверена на версии ПаскальАВС.Нет):
var
x: array [1..10] of integer;
y, z: array [1..15] of integer;
i, j, k: integer;
f: boolean;begin
//заполнение и распечатка массива Х
for i := 1 to 10 do
begin
x[i] := random(10) + 1;
write(x[i]:3);
end;
writeln;
//заполнение и распечатка массива У
for i := 1 to 15 do
begin
y[i] := random(10) + 1;
write(y[i]:3);
end;
writeln;
//заполнение массива Z
for i := 1 to 15 do
begin
f := true;
for j := 1 to 10 do
if x[j] = y[i] then
begin
f := false;
break;
end;
if f then
begin
k := k + 1;
z[k] := y[i];
end;
end;
//распечатка массива Z
for i:=1 to k do
write(z[i]:3);
end.
