Если в интервале от 21 до 30 то 9%(30-21) так как он может загадать 100 чисел то каждое цифра =1 %
От 31 до 55 то 55-31=24%
Больше 25 то 100-25=75%
Равное 25=1%
(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
begin
s:=0;
writeln ('Введите число');
while a<> 0 do
begin
a:= a mod 10
S:=s+a;
end;
if S mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
end.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var h := ReadReal('Задайте шаг h:');
var (a, b) := (-3.0, 3.0);
for var i := 0 to Trunc((b - a) / h) do
begin
var d := a + i * h;
var k := 4.3 + Sin(Exp(1 / d) + 2) / (2.1 + d) - 6.7 * d;
Writeln(d:18:15, k:24:15)
end
end.
1. При семибитном кодировании количество цветов в палитре составляет 2⁷ = 128 цветов.
2. Количество точек на мониторе 640×350 = 224 000. 16 цветов требует для кодирования 4 бита (16 = 2⁴), что составляет 4/8 = 0.5 байта. Тогда объем памяти составит 224 000×0.5 = 112 000 байт = 112 000/1024 = 109.375 Кбайт
3. Количество пикселей составляет 2048×1024 = 2 097 152. Тогда на 1 пиксель приходится 1.5×1024²/2 097 152 = 0.75 байта = 0.75×8 = 6 бит.
В палитре может быть максимум 2⁶ = 64 цвета.
Программа вылетает т.к. много значений перебирает, если не хочется подобного просто смените ограничение.
var i,a,b,c,d:integer;
begin
for i:=1000 to 9999 do begin
a:=i mod 10;
b:=(i div 10) mod 10;
c:=(i div 100) mod 10;
d:=(i div 1000) mod 10;
if (a=b) and (b=c) and (c=d) then writeln ('odinakovie cifri - ',i);
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then writeln('ne odinakovie cifri - ',i);
end;