Var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
1: Writeln('y = ', x*x);
2: Writeln('y = ', cos(x));
3: Writeln('y = ', sin(x));
4: Writeln('y = ', abs(x));
end;
end.
По задаче 3. Сразу замечаем, что в числе присутствует "цифра" А, а это значит, что число записано в 16-ричной системе, то есть "цифра А - это "цифра" 10 в 16-ричной системе. Тогда:
1*10^8+10*10^7+ 4+10^6+ ... + 7+10^1+8*10^0=112766296184 (пожалуйста, пересчитай, я мог ошибиться... )
По задаче 4
Х + У = 1100112+1358 = 1101470
а далее уголком дели на 2, НЕ ЗАБУДЬ РЕЗУЛЬТАТ ЗАПИСАТЬ В ОБРАТНОМ ПОРЯДКЕ!!!!
Ответ 1 000 11 00 111 0 100 1111 0 (не запутайся в нулях и единицах!!!)
Ну а далее я все равно не врубился в условия остальных задач((( О какой ФОРМУЛЕ идет речь в заднии номер 5??????
Var a1,a2,a,n:integer;
begin
a1:=1; a2:=1;
n:=2;
while a2<=100 do
begin
a:=a1+a2;
a1:=a2;
a2:=a;
n:=n+1;
end;
writeln('n = ',n,' an = ',a2);
end.
Результат:
<span>n = 12 an = 144</span>