Program Archi;
uses crt;
var
x:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите x: ');
readln(x);
writeln('При х=',x,'');
writeln('3sin(sqrt(3))+0,35x-3,8 = ',3*sin(sqrt(3))+0.35*x-3.8:0:3);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Дано натуральное число , определить количество цифр в нем ( ПАСКАЛЬ ) СРОЧНО ! уже какой раз кидаю этот вопрос никто правильно р

Татьяна Астанакулова

<span>program 123;
  uses crt;
  var m, n: longint;
      k: integer;    {счетчик цифр}
begin
  clrscr;
{Вводим целое число.}
  writeln('Введите N='); readln(n);
{Запоминаем его и счетчику цифр присваиваем начальное значение.}
  m:=n;k:=0;
{Пока m<>0 делать цикл.}
  while m <>0 do
    begin
{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
      k:=k+1; m:= m div 10; {Inc(k) }
    end;
{Вывод количества цифр.}
  writeln('B числе ',n,'- ',k, ' цифр!');
  readln;
end.</span>

0 0

1 год назад

Перевести два числа из десятичной системы счисления:123, 67 в двоичную систему счисления

Jenniko [7]

Каждый раз делишь на два и записываешь остаток, потом записываешь наоборот.
123/2 - остаток 1
61/2 - остаток 1
30/2 - остаток 0
15/2 - остаток 1
7/2 - остаток 1
3/2- остаток 1
под конец всегда нужно добавлять единицу
123 = 1111011
67/2 - остаток 1
33/2 - остаток 1
16/2 - остаток 0
8/2 - остаток 0
4/2 - остаток 0
2/2 - остаток 0
и под конец всегда нужно добавлять единицу
67=1000011

0 0

4 года назад