//Pascal ABC.NET v3.1 сборка 1172
Const
n=4;
Var
ar:array[1..n] of integer;
i,j:integer;
k:real;
begin
writeln('Array:');
for i:=1 to n do
readln(ar[i]);
k:=ar[1]/ar[2];
for i:=1 to n-1 do
if ar[i]/ar[i+1]<>k then
begin
writeln('No');
exit;
end;
writeln('Yup');
end.
Пример ввода:
1
2
4
8
Пример вывода:
Yup
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.
Время передачи файла размером 512Кб через некоторое соединение 2секунды. Найдите объем файла передающегося через это же соединение за 8 секунд. (ответ 2Мб)
Ты должен помочь кому-то с заданием и получишь от этого баллы.
Ответ:
Очевидно что восьмеричная.
Т.к. если складывать поразрядно начиная с младшего разряда
видно что при сложении 6 и 2 переходим в следующий разряд.
Ноль пишем и один в уме.
Далее складываем 4 и 2 и один в уме получаем 7.
Получаем 370 в восьмеричной системе счисления.
Объяснение: