Const e=0.001;
var a1,a2:real;n:integer;
begin
a1:=0.5;
a2:=sin(a1)/cos(a1)/2;
n:=2;
writeln(n,a2:7:4);
while abs(a2-a1)>=e do
begin
a1:=a2;
a2:=sin(a1)/cos(a1)/2;
n:=n+1;
writeln(n,a2:7:4);
end;
writeln('n = ',n);
end.
Результат:
<span>2 0.2732
3 0.1401
4 0.0705
5 0.0353
6 0.0177
7 0.0088
8 0.0044
9 0.0022
10 0.0011
11 0.0006
n = 11</span>
1)
var a:real;
begin
writeln('Введите число');
readln(a);
if(a>8) then writeln('Число больше восьми') else writeln('Число меньше восьми');
end.
2)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 3 = 0) then writeln('Число делится на 3') else writeln('Число не делится на 3');
end.
3)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 2 = 0) then writeln('Число чётное') else writeln('Число нечётное');
end.
4)
var a,b:longint;
begin
writeln('Введите числа');
readln(a,b);
if(a>b) then writeln(b) else writeln(a);
end.
5)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a>0) then a:=a+5 else a:=a-1;
writeln(a);
end.
6)
var a,i,k:longint;
begin
k:=0;
for i:=1 to 3 do begin writeln('Введите число'); readln(a); if(a>0) then k:=k+1; end;
writeln(k,' ','положительных чисел');
end.
1.
3*(-2+3+2)-9=0
3*(-1+2+1)-6=0 Это подходит
Ответ:3
2.
2*(-6+3+1)+4=0
2*(2+3-2)-6=0 Это подходит
Ответ:4
3. 360:120=3- Это треугольник, так как 3
Ответ:4
4. 360:60=6- Незамкнутая ломаная линия, так как 6 это перебор (Повтори 5)
Ответ: 4
5.
3*(-2+3+2)=9
3*(-1+2+1)=6, так как сказано заменить, то мы просто меняем знаки.
Ответ:(-9;-6)
А) в нашем классе 25 девочек
б) комары - животные
в) "2" - знак
Надеюсь алгоритм автомата обьяснять не надо
Таблица из чего что получается при пробеге от 100 до 999
[189, 917]
[890, 917]
[898, 1717]
[981, 917]
[989, 1717]
Общее кол-во / Статистика
{1717=>2, 173=>0, 179=>0, 1719=>0, 1917=>0, 917=>3, 317=>0, 111=>0}
Решается аналитически путем подбора числа из которого мог бы получится желаемый результат.
Заметим что максимальная сума двух разрядов 9+9=18 , что сразу отметает 1-73, 1-79, 17-19, 1-917 (другие разбиения противоречат п.2)
1-11 - получается средний разряд = 0, а последний = 11 > 9
3-17 - получается 17 = 9+8, а 3 < 8
