1011110
 1100111
---------------
11000101

Арифметика двоичной системы счисления нужно выполнять при помощи ТАБЛИЦЫ сложения и умножения. Можно ее найти в интернете.

0 0

4 года назад

Дано целое число X и натуральное N. Составьте алгоритм вычисления X в степени N .Проверьте алгоритм трассировкой. Напишите прогр

vovkin91

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.

Пример:
x,n = 2 10
1024

0 0

4 года назад

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

Сравните,что больше сумма ряда 8.5,8.6,...,40.9 или произведение чисел от 1 до 3 с шагом 0.25 заранее спасибо♥

Рр1 [50]

Var a,s,p:real;
begin
a:=8.5;
s:=0;
while a<=40.9+0.005 do
begin
s:=s+a;
a:=a+0.1;
end;
writeln('s = ',s:6:2);
p:=1;
a:=1;
while a<=3+0.005 do
begin
p:=p*a;
a:=a+0.25;
end;
writeln('p = ',p:6:2);
if s>p
then writeln('Сумма больше')
else writeln('Произведение больше');
end.

Результат:
s = 8027.50
p = 304.54
Сумма больше

0 0

4 года назад

Записать задачи на языке Паскаль 1. Длина ребра куба вводится с клавиатуры. Вывести на экран площадь грани, площадь полной повер

Макс85

Program n1;
var r: real;
begin
writeln('введите ребро куба');
readln(r);
writeln('S грани =',sqr(r));
writeln('S полной поверхности =',sqr(r)*6);
writeln('V куба =',r*r*r);
end.

0 0

4 года назад