program five;
var
number, quantity: integer;
begin
quantity := 0;
read(number);
while number > 0 do
begin
if (number mod 10 mod 5 = 0) then
inc(quantity);
number := number div 10;
end;
write(quantity);
end.
Объяснение:
program five; // Название программы
var
number, quantity: integer; // Целочисленные переменные:
number - вводимое с клавиатуры число;quantity - количество цифр кратных 5.begin // Начало программы
quantity := 0; // Количество цифр = 0
read(number); // Ввод числа с клавиатуры
while number > 0 do // Пока значение переменной number > 0
begin // Начало цикла
if (number mod 10 mod 5 = 0) then // Если последняя цифра переменной number (number mod 10) при делении на 5 дает остаток 0, тогда
inc(quantity); // Прибавляем к переменной quantity единицу
number := number div 10; // Удаляем последнюю цифру числа
end; // Конец цикла
write(quantity); // Вывод ответа
end. // Конец программы
ответ:Привет,я не знаю Паскаль,но объяню логику решения. Решение максимально простое и не требует каких-либо углубленных знаний.
Объяснение:
короч. Для каждой цифры ты берешь переменную(x; y; z) дальше пишешь,если x=z,то это число является палиндромом,если x≠z,то начинаешь прибавлять по единице к z, если z = 10 то пусть будет равно 0,дальше прибавляешь к x +1 и делаешь,то же самое с z и все. реализовать просто используя несколько циклов и все. Удачи
Есть вообще капец творческое решение. ты просто из x-z,если число положительное то прибавляешь в z и все,если 0,то тут пишешь yes,если отрицательное,например, -3,то отнимаешь от x ,тоесть x--3=x+3 и все
Я сейчас увидел код от паскаля(человек сверху написал),ахахаххаха, это что за мусор,а не язык,я,конечно,не полностью понял код,но если ты просто будешь прибавлять по единице к трехзначному числу,то это будет долго и не эффективно,хотя и не прям уж ужасно,так что дерзай,но блин выбрось паскаль и начни с нормальных языков,которые пригодятся.
И 765,25 из шестнадцатиричной в двоичную. Заранее
ОТВЕТ
Покажу на примере первого числа.
1) Переводим в двоичную.
Сначала целую часть делением:
312 : 2 = 156 ост. 0
156 : 2 = 78 ост. 0
78 : 2 = 39 ост. 0
39 : 2 = 19 ост. 1
19 : 2 = 9 ост. 1
9 : 2 = 4 ост. 1
4 : 2 = 2 ост. 0
2 : 2 = 1 ост. 0
1 : 2 = 0 ост. 1
Для дробной нужно определиться сколько знаков после запятой нам нужно.
Пусть будет 8, чтобы в шестнадцатеричной получилось 2…
,96 · 2 = 1,92
,92 · 2 = 1,84
,84 · 2 = 1,68
,68 · 2 = 1,36
,36 · 2 = 0,72
,72 · 2 = 1,44
,44 · 2 = 0,88
,88 · 2 = 1,76
Следовательно 312,96 (10) → 100111000,11110101 (2)
Для перевода из двоичной в восьмеричную и шестнадцатеричную нужно разбить на тройки и квадры влево и вправо от запятой, при необходимости дописав нули:
100 111 000,111 101 010 (2) → 470,752 (8)
1 0011 1000,1111 0101 (2) → 138,F5 (16)
Теперь сделаем проверку:
4*8*8 + 7*8 + 7/8 + 5/8/8 + 2/8/8/8 = 256 + 56 + 0,875 + 0,078125 + 0,00390625 = 312,95703125
1*16*16 + 3*16 + 8 + 15/16 + 5/16/16 = 256 + 48 + 8 + 0,9375 + 0,01953125 = 312,95703125
Если полученный результат округлить до 2 знаков после запятой, то получится исходное число!