Написать программу в pascal abc. последовательность чисел заканчивающихся на 0(ноль). необходимо найти количество чисел у которых количество десятков "4" или "6".

116

277

Посмотреть ответы 3

Ответы на вопрос:

Shtager1501

Информатика

4,8(51 оценок)

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 var n,k,d: integer; begin k: =0; repeat write('введите натуральное число, 0- завершить: '); read(n); if n> 0 then begin d: =(n mod 100) div 10; if (d=4) or (d=6) then inc(k) end until n=0; writeln('искомых чисел - ',k) end. тестовое решение: введите натуральное число, 0- завершить: 345 введите натуральное число, 0- завершить: 6285 введите натуральное число, 0- завершить: 7854 введите натуральное число, 0- завершить: 1324 введите натуральное число, 0- завершить: 653 введите натуральное число, 0- завершить: 66666 введите натуральное число, 0- завершить: 0 искомых чисел - 2

Надюшка2000

Информатика

4,8(14 оценок)

Program random; var a, b, c, d: integer; begin read (a); if a mod 10 = 0 then writeln ('число оканчивается на ноль') else writeln ('число оканчивается не на ноль'); end. – программа, которая высчитывает, оканчивается ли число на ноль или нет. принцип работы: ты вводишь число. если число делится на 10, тогда на экран тебе выводится этому информация, что число оканчивается на ноль. program random; var a, b: integer; begin read (a, b); // a – десятки, b – единицы if a = 4 or 6 then writeln ('число имеет в себе 4 десятка') end. – программа, которая говорит тебе, имеет ли число в себе 4 или 6 десятков. принцип работы: ты вводишь 2 переменные: a и b; a — это десятки, а b — единицы. если число a (десятки) равно четырём или шести, тогда на экран тебе выводится информация, это.

yegor655

Информатика

4,7(46 оценок)

Дано: i = 5кб = 5120 байт = 5242880 бит k = 4 * 32 * 40 = 5120 символов по формуле i=k*i вычисляем i и получаем i=i/k теперь по этой формуле находим i = 5242880/5120 получаем что i равен 1024 теперь по формуле 2^i=n вычисляем n и получаем, что n=2^1024