Задание 1
10, 10, 11, 12, 10, 10, 11, 7, 7, 14
Вроде такой ответ :)
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 200)
.Max
.Println
end.
Ввод: микрофон, вебкамера, тачпад, сканер, клавиатура
Вывод: монитор, принтер, колонки, плоттер
Хранение: юсб-накопитель, жесткий диск
<span>V=K*I,</span><span>где V -
информационный объем рисунка (файла), К - общее количество точек рисунка
или разрешающая способность монитора, I <span>-
глубина цвета. И ещё на будующие 1366 и 768 это просто цифры а 1366х768 точек это уже совсем другое</span></span>
Var
F: real;
begin
F:= 4.25;
write(trunc(F) - (F - trunc(F)));
end.