1) Заданы три корня кубического уравнения: x1, x2, x3. Найти коэффициенты этого уравнения.

2) Может ли шар радиуса r пройти через ромбообразное отверстие с диагоналями p и q.

3) Написать программу, позволяющую по последней цифре числа определить последнюю цифру его квадрата.

Срочно!

Или хотя бы так объясните как их решать, а программу я сам напишу...

задачи не по паскалю, а по математике 7-го класса

1) непомню
2) найди высоту прямоугольного треугольника со сторонами p/2 и q/2 и сравни с радиусом
3) странная задача , неочень понятно, что на входе , но раз способ не указан, тогда самое простое:
возьми число, возведи в квадрат, переведи в строчку, выведи последний символ строки

Ни фига это не пятый класс... сижу, ни фига не получается...

Злобный Йожык


Золотые слова

KeФuP
Первая задача - решить уравнение означает разложить его на множители тоесть A1*x^n+.....+AN*x+c=((x-x1)^m)*....(x-xk)^l)=0
тоесть в Вашем случае (x-x1)*(x-x2)*(x-x3)=(раскрываем скобки и проделываем вычисления)=a1*x^3+a2*x^2+a1*x+b=0
По поводу третьей задачи алгоритм в целом такой предположим что имееется какое либо число вида xx..xxy воспользуемся формулами сокрашеного умоножения (a+b)^2=a^2+2*b*a+b^2, приведем наше число xx..xxy к виду xx..xx0+y тогда пусть xx..xx0=a, y=b, воспользуемся формулой a^2 будет именть на конце два нуля, 2*b*a - не менее одного, следовательно последняя цифра будет от b^2 тоесть если b^2 = wwww...wwwz то z b есть искомая цифра.
Для цисел с дестичной дробой частью алгоритм такой же только там речь будет идти о порядке.

Peter_P
- хитрО

Короче это, мне щас просто реально некогда этим заниматься, а сдавать надо зафтро %(, если кто то возьмётся это написать на паскале то могу подогнать аську шестизначную и 29 электронных рубликов, чем богат как говориться... %)

Злобный Йожык

ужасть!!! не легче ли считать как char, перевести в цифры ord-ом, загнать в массив, последний элемент возвести в квадрат и вывести "a[i]*a[i] mod 10" где a[i]последний элемент массивы - а следовательно последняя цифра...

2)
Program noname;
Uses crt;
Var
p, q, r:integer;
Begin;
writeln('Введите диагонали ромба')
readln(p, q)
writeln('Введите радиус шара')
readln(r)
if p>=r
then
writeln('Пройдет');
if q>=r
then
writeln('Пройдет');
else
writeln('Неа, не пройдет');
End.
Незачто

H(CHCl11B11)
сам то понял что написал?
там даны диагонали... нужно найти высоты ромба и их сравнивать с радиусами...

3)
Program noname2;
Uses crt;
Var
a q, r:integer;
Begin;
writeln('Введите последнюю цифру)
readln(a)
if a=0
then
writeln('0');
else
if a=1
then
writeln('1');
else
if a=2
then
writeln('4');
else
if a=3
then
writeln('9')
else
if a=4
then
writeln('6')
else
if a=5
writeln('5')
else
if a=6
then
writeln('6')
else
if a=7
then
writeln('9')
else
if a=8
then
writeln('4')
else
if a=9
then
writeln('1');
End.
Через case сделай сам

Добавлено спустя 2 минуты, 6 секунд:
cj_remix
я думал, что высоты даны
Тогда по теореме пифагора

H(CHCl11B11)
хмм... чё то я гоню можт, на как по теореме пифагора находить высоты через диагонали?

всмысле, я перепутал диагонали со сторонами.

Добавлено спустя 14 минут, 54 секунды:
Тогда по теореме пифагора находим сторону ромбика (а)
a=корень из(1/4*p(в квадрате)+1/4*q(в квадрате))
затем идет такой код по нахождению высоты:

Все, нашли высоту, затем

Аааа, позор, мне задачу решает девятиклассник...

Добавлено спустя 2 минуты, 17 секунд:
Через два часика загоню все это в паскаль, посмотримс...

cj_remix - ты мне лишнее приписал, это не я говорил.
Во вторых:
- зачем такой огород городить с массивом и символами, строка это уже массив .

Злобный Йожык
извини, прогнал

На самом деле неудачный спор, кто как привык - для меня char ord и массив в подобных задачах уже шаблон, по другому и не пытался...

Скоро, чую, пойдут вопросы в конфе: Помогите решить задачу в Бэйсике - сложить два натуральных числа