Var
k,n,x,d: integer;

begin
read(k,n);
for x := k to n do
if x mod 10 = 3 then
    begin
    d := 2;
    while x mod d <> 0 do d := d + 1;
    if x = d then write(x,' ');
    end;
end.

0 0

3 года назад

Составить программу решения неравенства b^n=1,b>=1 для чисел из промежутка (1,100) n - натуральное число от пользователя. ПАС

Андрей я [7]

Если b^n=1, тогда b всегда равно 1(1 в любой степени равна 1), либо <span>ответ</span> 1, либо неправильно сформулировано задание. Поправьте если не так.

0 0

4 года назад

монитор позволяет получать на экране сверху 2 24 цветов Какой обём памяти в байтах занимает 1 пиксель

Яа777

1 байт=8бит=>24/8=3 байт

0 0

4 года назад

Устройство,способное считывать графическую информацию и переводить её в цифровую форму,это-:А)монитор,В)сканер,С)мышь,D)модем??

Ivan- [661]

Сканер, не иначе. (ответы короче 20 символов не принимаются, набиваю символы)

0 0

4 года назад