Решебник (задания, переводы и т.п.)

[ZlokoZ]

Сообщение от SCHALKE 04

помогите плиз по физике:
Обруч катится по дороге без проскальзывания со скоростью V=1м/с.Чему равны минимальная и максимальная скорости точек обруча относительно дороги? ( ребят если можно с объяснением плиз, мне просто хочется понять всю эту фигню )

Ну максимальная будет 1 м/С а минимальная 0. тут думаю все понятно.

[7_15_StaR]

Помогите найти доклады по темам:
1. Сельское хозяйство на Кубани в начале 20 века
2. Традиционная народная культура на Кубани в начале 20 века
Пишите в личку плз

[ZlokoZ]

скажите, а можно скачать электронную версию учебника по химии 11 класс, автор Гузей

[***LEO***]

Друзья, юросты на сайте, знаю, есть. По сему, помощи прошу в поиске достойного учебника по административному праву. Конкретно интересует административный процесс. В сети не нашёл, где бы она была освещена достойно и подробно. Заранее спасибо.

[Dexter-siberia]

Ребята, помогите найти медицинскую статью на английском языке переведённую на русский. Интересует оригинал и непосредственно перевод.

[Dammer]

Люди, знающие толк в начертательной геометрии, помогите сделать 3 задачки,пожалуйста:

[daNch1k]

Нужно решить задачки по Информатике (Turbo Pascal). Они легкие, просто я в информатике не рублю. Можно в качестве бонуса ПНД

1) Составить программу, которое уменьшает первое введенное число в 2 раза, если оно больше второго введенного числа по абсолютной величине.

2) Дано 5-значное число. Найти число, получаемое при прочтении его цифр справа налево.

3) Среди чисел 1, 1+1/2, 1+1/2+1/3 найти первое, большее числа 1

[shava13]

Danch1k
1)

Program asdfg;
uses crt;
var a,b:real;
begin
ClrScr;
writeln('Введите 2 числа');readln(a,b);
b:=abs(b);
if a>b then
a:=a/2;
writeln(a:2:2);
writeln(b:2:2);
readkey;
end.

2)

Program asdfg;
uses crt;
var a,b:string;
c,d:integer;
begin
ClrScr;
writeln('Введите число');readln(a);
d:=length(a) ;
while d>=1 do
begin
b:=b+copy(a,d,1);
d:=d-1;
end;

writeln(b) ;
readkey;
end.

[daNch1k]

shava13, спасибо огромное. Не мог бы решить вот это (немного изменил условия, вроде бы понятнее):

3) Среди чисел 1, 1+1/2, 1+1/2+1/3 напечать те, которые больше числа 1.

[shava13]

ну тогда вот так
3)

Program asdf;
uses crt;
var a,b,c:real;
begin
ClrScr;
a:=1;
b:=1+1/2;
c:=1+1/2+1/3;
if a>1 then writeln(a:2:2);

if b>1 then writeln(b:2:2);

if c>1 then writeln(c:2:2);
readkey;
end.