Ответ только на первую задачу.
крестик в таблице это не подходящая фамилия.
var sum,x:integer;
begin
x:=1;
while x<>0 do begin readln(x); sum:=sum+x; end;
writeln(sum);
end.
Begin
write(ReadSeqInteger(ReadInteger()).Where(x -> x mod 3 = 0).Sum);
end.
<span><span>1) 2,54см <span>* 15 = 38,1см</span></span>
Соотношение между длиной и широтой экрана для разрешения 1024х768 768:1024 = 0,75
Находим ширину. Пусть ширина экрана равна "X", тогда высота равна 0,75X. По теореме Пифагора получится: X2+(0,75X)2=38,12<span>1,5625X2 = 1451,61</span>X2 ≈ 929<span><span>X ≈ 30,5 </span>см
</span>Кол-во точек равно: 305мм:0,28мм=1089
Ответ: Максимально возможное разрешение равно 1024х768</span>