Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 175167
12.12.2009, 18:46
0.00 руб.
0 2 2
Компьютеры Программирование
Добрый день!Помогите пожалуйста с решением задач по Паскалю
1-ая: Дано действительное число R вида nnn.ddd (три цифровых разряда в дробной и целых частях). Поменять местами дробную и целую части числа и вывести полученное значение числа
2-ая: Найти частное произведений четных и нечетных цифр четырехзначного числа

Обсуждение

Неизвестный
12.12.2009, 22:02
общий
это ответ
Здравствуйте, mafanja! Решение 1-ой задачи: Допустим, что a=nnn.ddd, тогда нам нужно найти число b=ddd.nnn
b := (Round(a*1000) mod 1000) + (((a*1000)div 1000000);
writeln(b);
давно
LfiN
Специалист
246813
155
13.12.2009, 10:06
общий
это ответ
Здравствуйте, mafanja.
Ниже текст программы второй задачи.
Пусть первоначально произведения четных и нечетных цифр заданного числа равны единице.
Код:
program q175167;
var k,a,c,n,i:integer;{k-само число,a-цифра в числе,c-произведение четных чисел,
                       n-произведение нечетных чисел,i-счетчик}
begin
        Write('Введите четырехзначное число: ');
        ReadLn(k);
        n:=1;
        c:=1;
        for i:=1 to 4 do
                begin
                  a:=k mod 10; {Находим последнюю цифру заданного числа}
                  k:=k div 10; {Отбрасываем эту цифру}
                  if odd(a) then n:=n*a {Если число нечетное, то перемножаем с нечетными}
                  else c:=c*a;{Иначе перемножаем с четными}
                end;
        Write('Частное произведений четных и нечетных цифр данного числа:',
              (c/n):2:4);
        ReadLn;
end.
Форма ответа