Var
A: integer;
begin
readLn(A);
if (A mod 2 = 0) then
begin
A := sqr(A);
WriteLn('Квадрат введённого числа равен: ', A);
end else
begin
A := ((A mod 100) div 10) + (A mod 10) + (A div 100);
writeLn('Сумма цифр введённого числа равна: ', A);
end;
end.
Pascal
Скидываю файл, так как там действительно много кода.
Int h = 100000,count=1;
while(h!=0)
{
h/=10;
count++;
}
if(count / 2 == 0)
//число четное
наверное как то так
Прости, что отвечаю через 2 часа, был не дома)
var
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;
Сначала сервер со скоростью провайдера 10 Мбит/с загрузил 640Кбайт информации.
640Кбайт= 640*8=5120 Кбит.
5120Кбит=5120/1024=5 Мбит.
Сервер потратит на загрузку этих 5 Мбит время, равное 5/10=0.5 (с)
Потом начнется скачивание данных пользователем. Объем данных равен 3 Мбайта = 3*8=24 Мбита, что составляет 24*1024=24576 Кбит.
При скорости скачивания 64 Кбит/с, на это понадобится 24576/64=384с.
Общее время составит 0.5+384=384.5с