// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var t:= ReadlnString('Введите строку').Where(i -> (i >= '0')and(i <= '9')).JoinIntoString('');
Write('Строка чисел: ');
t.Println();
end.
2)var x,y:integer;beginreadln (x,y); while x<16 do begin if x>y then beginx:=x-2;y:=y+4 end else beginx:=x+5;y:=y-3; end; end;writeln ('x=',x,'y=',y);end.
криво но работает,там в таблице строка слева на право 16 11 16 12 и так вниз,так условие постоянно не выполняется (16<16 не выполняется)
3)var x,y:real;beginreadln (x,y);while x<0 dobeginif x<y thenbeginx:=x+1;y:=y/2;endelsebeginx:=x+3;y:=y-2;end;end;x:=x-5;y:=y+3;writeln ('x=',x,'y=',y);end.
таблицу сам
DPI значает Dot per Inch
В одном дюйме 2,54cм
<span>Перевод размера изображения в дюймы:</span>
10/2.54 = 3.94
15/2.54 = 5.91
3.94 * 5.91 = 23.29 inch^2
Разрешающая способность сканера 600×600 dpi
значит в 1 inch^2 = 600*600 = 360 000 точек
Во всем изображении
23.29 inch^2 * 360 000 dpi = 8 384 400 точек
Глубина цвета 3 байта. 3*8бит = 24 бита
8 384 400 точек * 24 бит = 201 225 600 бит
201 225 600 / 8 = 25 153 200 байт
25 153 200 / 1024 * 1024 примерно равно 24 мегабайта
Защищённые ПК
Промышленные ПК
Тихий ПК
Компактные ПК
Немного не понял вопрос