Developing.ru

Вот, может разберетесь.
Кстати, Program можно вообще не писать .
[syntax='Delphi']
var
N:integer;
L,R:Real;

begin
WriteLn('Введите номер единицы измерения и длину в этих единицах');
ReadLn(N,L);
Case N of
1:R:=L/10;
2:R:=L*1000;
3:R:=L;
4:R:=L/1000;
5:R:=L/100;
end;
WriteLn('Длина в метрах ',R:0:3);
ReadLn;
end.
[/syntax]

2 Хыиуду: что-то не совсем понял, при чем здесь максимум.

Спасибо ели бы так предыдущие 3 так расписали

MOTOCoder писал(а): 2 Хыиуду: что-то не совсем понял, при чем здесь максимум.

Ааа, глючу, "данного" прочитал как "длинного". Тогда, конечно, все еще проще.

ребят прошу напишите предыдущие 3 задачи полность желательно сегодня

что не так

34. Задано двухзначное число. Дайте характеристику числа по следующему плану:
- сумма цифр числа;
- число чётное (нечётное);
- число большее (меньше) пятидесяти;
- первая цифра равна (неравна) второй цифре.



Program zadacha34
Var
f,a,I: integer;
Begin
I:=1;
F:=1;
Writeln (‘vvedite chislo’);
Readln (n);
Repead;
F:=i*f;
I:=i*1;
Until i>n;
Writeln (‘f=’,f);
Readnl;
End.

fosbery писал(а):что не так

Все, особенно Repead понравилось .

1.Сумма цифр:
число двузначное, поэтому первая цифра будет n1:=N div 10;, вторая n2:=N mod 10;, т.е. в общем будет так:
[syntax='Delphi']
Sum:=(N div 10)+(N mod 10);
[/syntax]
2. Четность проверяется либо стандартной функцией Odd, либо условием N mod 2=0

3. С больше/меньше 50 думаю понятно.
4. Почти так же, как и сумма
[syntax='Delphi']
if (N div 10)=(N mod 10) then
writeln('Равны')
else
writeln('Не равны');
[/syntax]

спасибо ща исправлю

А можете объяснить смысл первоначального кода? Вот ввел я, скажем, 25. Зачем умножать 1 на 1, и потом домножать еще на 1, пока эта единица не станет больше 25?

Среди четырёхзначных чисел выбрать те, у которых имеются три одинаковые цифры (например: 1311, 7779);

последнию и умоляю полность от var до end

Только три или по меньшей мере три?