4 года назад

Переведите чисто 20 в двоичную систему счисления; число 625 в восьмиричную; число 622 в шестнадцатиричную

Знания

Информатика

1 ответ:

Марина-S4 года назад

0 0

1- 10100
2- 1161
3- 26E

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

Написать программу на языке Pascal (цикл for и while ). Найти сумму нечетных чисел в промежутке от 20 до n

Михаил Смирнов7

Var
i,n,s:integer;
begin
Write('n=');
Readln(n);
s:=0;
for i:=20 to n do
    if Odd(i) then s:=s+i;
Writeln('Сумма с for = ',s);
s:=0; i:=21;
while i<=n do
begin
    s:=s+i;
    i:=i+2
end;
Writeln('Сумма с while = ',s)
end.

0 0

4 года назад

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

Дано натуральное число. определить сумму квадратов его цифр паскаль цмкл while

Ольга Половникова

var a,b,s: integer;
begin
readln(a);
while a>=10 do
begin
b:=a mod 10;
s:=s+sqr(b);
a:=a div 10;
end;
a:=a*a;
s:=s+a;
writeln(s);
readln;

end.
В s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!