Перейти к содержанию

Ulan.VIP

Пользователи
 Профиль  Обзор контента

  • Постов

    635

  • Зарегистрирован

  • Посещение

 Тип контента 

Сообщения, опубликованные Ulan.VIP

  8. Помощ паскаль

    в Программирование

    Опубликовано

    Незнаю но помоему так

    2.

    А)Integer;

    Б)Real;

    В)Integer;

    Г)Real;

    Д)Integer;

    Е)-Незнаю

    Помоему так !!! Поправте буду рад!!

    1.

    скрытый текст

    а

    Uses WinCrt;

    Begin

    WriteLn(6.9, ' преобразовывается в ', Trunc(6.9));

    End.

    б

    Uses WinCrt;

    Begin

    WriteLn(6.2, ' преобразовывается в ', Trunc(6.2));

    End.

    в

    Uses WinCrt;

    Var x:integer;

    Begin

    x:=20 div 6;

    WriteLn(20 div 6, ' = ', x);

    End.

    г

    Uses WinCrt;

    Var x:integer;

    Begin

    x:=2 div 5;

    WriteLn(2 div 5, ' = ', x);

    End.

    д

    Uses WinCrt;

    Begin

    WriteLn(6.9, ' округленно = ', Round(6.9));

    End.

    е

    Uses WinCrt;

    Begin

    WriteLn(6.2, ' округленно = ', Round(6.2));

    End.

    ж

    Uses WinCrt;

    Var x:integer;

    Begin

    x:=20 mod 6;

    WriteLn(20 mod 6, ' = ', x);

    End.

    3

    Uses WinCrt;

    Var x:integer;

    Begin

    x:=2 mod 5;

    WriteLn(2 mod 5, ' = ', x);

    End.

×
×
  • Создать...