malgoblin2663
?>

Допишите программу дано целое число, не меньшее 2. выведите его наименьший натуральный делитель, отличный от 1. var i, n, s: integer; begin read(n); i: =2; while s< > 0 do begin s: = n mod i; i: =i+1; end; writeln (i); end.

Информатика

Ответы

sidorov9
Var i,n,s: integer; begin       read(n);           i: =2;               s: =1; {иначе не зайдешь в цикл вообще, т.к. изначально s=0]               while s< > 0 do                   begin                         s: = n mod i;                           if s < > 0 then                             i: =i+1;                   end; writeln (i); end.
bel1-79

Дано:

размер изображения 128Х256 пикселей.

N = 64 цвета в палитре.

Решение:

1) Необходимо рассчитать информационный объем одного пикселя для этого используем формулу

N=2I, где N – количество цветов в палитре, а I – количество информации на один цвет или пиксель.

64=26, отсюда I = 6 бит.

2) Что бы рассчитать минимальный объем изображения мы должны умножить размер

изображения на количество информации на один цвет или пиксель - 128*256*6=196608 бит

3) В ответе нам необходимо указать в Килобайтах

196608 бит /(8*1024)=24 Кбайта

Решение без калькулятора

ответ: 24

SlavaA99
Максимально возможная сумма двух цифр в числе: 9+9=18 проверяем 2118: 2 и 118 - неверно(118> 18) 21 и 18 - неверно(21> 18) 211 и 8 - неверно(211> 18) значит число 2118 - не подходит проверяем 1818: 181 и 8, 1 и 818 - неверно(181> 18, 818> 18) 18 и 18 - возможное исходное число: 9999 9999 - 9+9=18; 9+9=18 - в итоге получится 1818 число 1818 - подходит проверяем 1718: 171 и 8, 1 и 718 - неверно 17 и 18 - возможное исходное число: 8999 8999 - 8+9=17, 9+9=18 - в итоге 1718 1718 - подходит проверяем 123: 1 и 23 - неверно(23> 18) 12 и 3 - суммы записаны в порядке убывания(противоречит условию) 123 - не подходит ответ: 1818 и 1718

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Допишите программу дано целое число, не меньшее 2. выведите его наименьший натуральный делитель, отличный от 1. var i, n, s: integer; begin read(n); i: =2; while s< > 0 do begin s: = n mod i; i: =i+1; end; writeln (i); end.
Ваше имя (никнейм)*
Email*
Комментарий*