Составил таблицу, фамилии и номер дома можно выбирать из списка.
Var sum,i : Integer;
Begin
sum:=0;
For i:=1 to 10 do sum:=sum+i;
Writeln(sum);
end.
Но проще всего это считать без циклов - одной строкой:
Begin
Writeln((10+1)*10 div 2);
end.
Решение смотри во вложении.
4096 байта = 4Кбайта (1024 байт = 1Кбайт) => файл размером 4Кбайта будет передан за то же самое время.
Ответ:64.
1) 8×70=560
2) 3500÷560=6,25
Ответ:6,25