var
i: <em>integer</em>;
begin
readln(i);
writeln(length(inttostr(i)));
<span>end.</span>
Число не помещается в ячейке. Отформатируйте ячейку на автоподбор ширины или раздвиньте границы ячейки.
Решение..............................................
1) узнаем скорость соединения
1,25Кбайт=1,25*1024байт=1280байт
1280/128=10 байт\с
2) узнаем время
250\10=25 с
Ответ 25 секунд
Не понятно про "Жесткий" цикл. Но как вариант:
var i:integer;
begin
for i:=-30 to 50 do
if (i mod 3=0) and (i mod 4 =0) and(i<>0 then writeln(i);
end.
На выходе:
-24
-12
12
24
36
48