// счет разрядов от нуля справа налево: ХХХ5ХХ2ХХ
var
n:longint;
a,b,k,d:integer;
begin
Write('Введите натуральное число длиной 6-9 цифр: ');
Read(n);
k:=0;
while n>0 do begin
d:=n mod 10;
if k=2 then a:=d
else
if k=5 then b:=d;
Inc(k);
n:=n div 10
end;
Writeln('Ср. арифм. разрядов 2 и 5 равно ',(a+b)/2)
end.
Пример
Введите натуральное число длиной 6-9 цифр: 123456789
Ср. арифм. разрядов 2 и 5 равно 5.5
Самое простое из того, что смог придумать. Перебираем числа до половины необходимого (больше нет смысла) (for i := 2 to number div 2 do) и ищем есть ли делители (number mod i = 0). Выводим сообщение.
var
number, i : integer;
begin
write('Число: ');
readln(number);
for i := 2 to number div 2 do
if number mod i = 0 then
begin
writeln('Число не является простым, оно делится, как минимум, на ', i);
Exit;
end;
writeln('Число является простым');
end.
40*50=2000 пикселей
каждый пиксель занимает 2^8=8 бит, или 1 байт, то есть мне кажется общим объем:
2000байтов
Это изображение называется рабочий стол
сначала 10 если кучки по 5 равны то 2 оставшиеся