Задать вопрос!

Задать вопрос!

Все категории

4 года назад

6

Помогите пожалуйста.

Информатика.

Информатика

1 ответ:

Сумаил4 года назад

0 0

Двоичная основания 20 разрядные слагаемые 2000000,200000,20000,2000,200,20,2

Читайте также

Помогите срочно Паскаль абц

Ари99 [17]

Ответ:

var x:Real;

begin

write ('x = ');

Readln(x);

if x<0 then Write('y = ',x*x) else

if x>2 then Write('y = ',(3*x-1)/(2*x)) else

Write('y = ',sqr(x)*x+5)

end.

0 0

1 год назад

Определите среднее значение всех элементов последовательности, завершающейся числом 0. Использовать массивы в данной задаче нель

metalurg

А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.

var
m,n,s:integer;
begin
s:=0; n:=0;
repeat
Read(m);
if m<>0 then begin s:=s+m; n:=n+1 end
until m=0;
if n>0 then Writeln(s/n)
else Writeln('Ничего не введено')
end.

0 0

4 года назад

Файл размером 16кбайт передаётся через некотрое соединение за 32 секунды.определите за сколько можно передать этот же файл через

Proffita [7]

32/16=2
ответ: 2 секунды

0 0

4 года назад

Шуточный секрет, заложенный создателями в программное обеспечение с целью повеселить пользователя, называется...а)веселой тыквой

селминаз

Пасхальное яйцо (<span>Easter Egg)</span>

0 0

3 года назад

Вычеркивание цифрыДано натуральное число, содержащее не более N (0<N£9) цифр. Вычеркнув в нем одну цифру, получить наибольшее

Alyon ka

Var
s, si, sm: string;
i, n: integer;
f: Text;

begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, s);
Close(f);
Assign(f, 'output.txt');
Rewrite(f);
n := Length(s);
sm := Copy(s, 2, n - 1);
for i := 2 to n do
begin
    si := s;
    Delete(si, i, 1);
    if sm < si then sm := si
end;
Writeln(f, sm);
Close(f)
end.

0 0

4 года назад