Примеры переводов в разные сс:
(1) 0,101_2 = 0 * 2^0 + 1 * 2^-1 + 0 * 2^-2 + 1 * 2^-3 = 1/2 + 1/8 = 5/8 = 0.625_10
(2) 0,6_8 = 0 * 1 + 6/8 = 12/16 = 0.C_16
(3) 0.125_10 = 1/8 = 2^-3 = 0.001_2
(4) 0.4_16 = 4/16 = 2/8 = 0.2_8
Остальные переводы выполняются аналогично. Получившаяся таблица во вложении.
1) s:=1*2=2
2)s:=2*2=4
3)s:=4*2=8
4)s:=8*2=16
5)s:=16*2=32
6)s:=32*2=64
7)s:=64*2=128
Ответ: s:=128
#include <iostream>
int main() {
for(;;) {
double sg, pk_1 = 3.26;
std::cin >> sg; // Вводишь расстояние до звезды
std::cout << sg / pk_1 << std::endl;
if (sg == 0) break; // если вводишь 0, программа завершается
}
return 0;
}
// программа выводит на экран значение расстояния до звезды в парсеках
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication7
{
class Program
{
static void Main(string[] args)
{
for (int i = 5; i >= 1; i--)
{
for (int j = i; j >= 1; j--)
{
Console.Write(j);
}
Console.WriteLine();
}
Console.ReadKey();
}
}
}
//Новая версия с "Поехавшей анимацией..."
uses GraphABC;
var
x, y, i, j, k, p, a: integer;
begin
x := 400;
y := 150;
Window.Init(0, 0, 1280, 720, clwhite);
Window.IsFixedSize := true;
Pen.Width := 4;
Pen.Color := clSaddleBrown;
for a := 1 to 5 do
begin
x := x + 80;
line(x, y, x, y + 400);
line(x + 75, y, x + 75, y + 400);
line(x, y + 400, x + 75, y + 400);
for i := 3 to 72 do
begin
for j := 2 to 397 do
begin
setpixel(x + i, y + j, clBurlyWood);
end;
end;
p := 1;
for i := 3 to 36 do
begin
for j := 1 to 50 do
begin
if(j <= p) then setpixel(x + i, y - j + 2, clBurlyWood);
end;
p := p + 1;
end;
p := 38;
for i := 36 to 72 do
begin
for j := 1 to 50 do
begin
if(j <= p) then setpixel(x + i, y - j + 2, clBurlyWood);
end;
p := p - 1;
if(j mod 15 = 0) then p := p - 1;
end;
Pen.Width := 5;
line(x, y, x + 38, y - 38);
line(x + 75, y, x + 38, y - 38);
Pen.Width := 4;
end;
end.
