<h3>в первом задании выйдет квадрат на две клетки.во втором задании 1-2,2-3,3-1.надеюсь понятно</h3>
Var a,i:integer;
begin
a:=0;
for i = 10 to 99 do
begin
if ((i mod 2)<>0) and ((i mod 13)<>0) then
a:=a+1;
end;
writeln (a);
end.
вроде так
128 кбит/с = 16 кб/с; 1 Гб = 1024 Мб = 1024² Кб = 1048576 Кб. Значит потребуется 1048576 / 16 с = 16384 с. Если считать, что в месяце 30 дней и, соответственно, 30 * 24 * 3600 секунд, то 16384 секунд будут стоить 30 $ * 16384 / (30 * 24 * 3600) ≈ 19 центов.