Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Помогите с задачей

Страницы: 1
Помогите с задачей
#1
22.12.2010 19:22:51
Помогите решить задачи.
1.Дано четырехзначное целое число. Найти вторую и третью цифру данного числа.
2.Для данного х найти значение функции.
F(X){1\(X*X*X+6),x>3 и x*x*x+9,x< или =3
Изменено: Denis Panc - 22.12.2010 19:47:40
 
 
#2
23.12.2010 13:57:03
По поводу первого что сразу пришло в голову...
Перевести число в строку и посмотреть на нужные элементы получившейся строки...
 
 
#3
30.01.2011 10:47:03
Код
program first;
var
dano: integer; {четырехзначное число}
answer: integer;
begin
write('->');
readln(dano);

answer:= dano div 10;
answer:= answer mod 100;

write('answer: ',answer);
readln;

end.


Код

program second;

var
x:real;
F:real;
begin
writeln('Vvedite x: ');
readln(x);

if x > 3 then
   F:=1 / (x*x*x + 6)
else
   F:=x*x*x+9;

writeln('F = ',F:6:4);
readln;
end.
Изменено: rozpants - 30.01.2011 10:52:56
 
 
#4
06.02.2011 16:33:48
Wrilteln(x[2]);
writeln(x[3]);
Вроде так, если через строку
 
 
#5
10.02.2011 17:00:10
ага, я че-то протупил, у меня выводит только 3ю цифру
будет так

Код
program first;
var number:string[4];
begin
readln(number);
writeln(number[2],',',number[3]);
readln
end.
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)