Дано действительное число а.вычислите f(a), если а) f(х)= х2 при -2≤х< 2, 4 в противном случае; б) f(x)= x2+4x+5 при х≤2, 1/х2+4х+5 в противном случае; ..
А) var a, y: real; begin writeln('Введите число:'); readln(a); if (a >= -2) and (a < 2) then begin y := a*a; writeln('f(', a, ')=', y); end else begin y := 4; writeln('f(', a, ')=', y); end; end.
б) var a,y:real;
begin writeln('Введите число'); readln(a); if a<=2 then begin y:=a*a+4*a+5; writeln(' f(',a,')=', y); end else begin y:=(1/(a*a)) + 4*a +5; writeln('f(',a,')=',y); end; end. *** Если что-то непонятно задавай вопросы.
На каком языке надо? Если паскаль то держи: 1)Program A; Var a:Integer; Begin Write('Введите двузначное число'); Read(a); If (a>10) and (a<100) Then Writeln('Число является двузначным') Else Writeln('Вы ввели не двузначное число!'); End.
2)var i,a:integer; begin a:=2; for i:=1 to 20 do begin a:=a-1; writeln(a); end; end.
3)Там можно и самому просто дели 555 на 2 как можно больше чтоб конечный ответ был 2/2=0 и там считай уже
4)program b; var a:integer; begin write('Введите любое четное число= '); read(a); if a mod 2 = 0 then write('ответ= ',a/2) else write('Было введено нечетное число!'); end.
5)program d; var i,a:Integer; begin a:=2; for i:=1 to 20 do begin a:=a+10; writeln(a); end; end.
6)Его надо делать так же как число и 555 а ответ вообще 4 единицы
Все удачные наборы команд должны включать остановку на отметке 10 футов. На отметку 1 фут робот может попасть с одной команды A; на отметку 2 фута - с команд AA и B (всего 2 набора команд); на отметку 3 фута - с команд AAA, AB, BA и C (4 набора). Так как за одну команду робот может переместиться на 1, 2 или 3 фута, то для подсчета количества наборов команд, позволяющих роботу попасть на отметки N > 3, можно использовать формулу K(N) = K(N-1)+K(N-2)+K(N-3). K(4) = K(3)+K(2)+K(1) = 4+2+1 = 7 K(5) = K(4)+K(3)+K(2) = 7+4+2 = 13 K(6) = K(5)+K(4)+K(3) = 13+7+4 = 24 K(7) = K(6)+K(5)+K(4) = 24+13+7 = 44 K(8) = K(7)+K(6)+K(5) = 44+24+13 = 81 K(9) = K(8)+K(7)+K(6) = 81+44+24 = 149 K(10) = K(9)+K(8)+K(7) = 149+81+44 = 274 Так как вторая часть пути робота также имеет длину 10, то общее количество удачных наборов команд = 274*274= 75076
begin
writeln('Введите число:');
readln(a);
if (a >= -2) and (a < 2) then
begin
y := a*a;
writeln('f(', a, ')=', y);
end
else
begin
y := 4;
writeln('f(', a, ')=', y);
end;
end.
б) var a,y:real;
begin
writeln('Введите число');
readln(a);
if a<=2 then
begin
y:=a*a+4*a+5;
writeln(' f(',a,')=', y);
end
else
begin
y:=(1/(a*a)) + 4*a +5;
writeln('f(',a,')=',y);
end;
end.
***
Если что-то непонятно задавай вопросы.