Диаграмма используется для наглядного представления данных
Вас пригласили в гости))))) )
1. Выйти из дома.
2. Повернуть направо.
3. Пройти два квартала до остановки.
4. Сесть в автобус № 5, идущий к центру города.
5. Проехать три остановки.
6. Выйти из автобуса.
7. Найти по указанному адресу дом и квартиру.
//PascalABC.NET 3.1 сборка 1239
function BinToDec(bin: string): integer;
begin
var n := 0;
var p := 1;
for var i := length(bin) downto 1 do
begin
n += p * StrToInt(bin[i]);
p *= 2;
end;
Result := n;
end;
begin
var s := ReadlnString('s =');
writeln(BinToDec(s));
end.
Исходное число: 103
3*(100х+10у+3)+1=300+10х+у
290+29у=290
10х+у=10
так как числа у нас целые, то х=1, у=0.
Подставляем в формулу исходного числа:
100х+10у+3=100+0+3=103.
---
проверка:
103*3+1=309+1=310
103 ->310 (перестановка цифры 3 начало)
310=310 - верно.
--
var x:string;
begin
x:='Турбина';
writeln(x);
x:= 'Резина';
writeln(x); // writeln выводит текст
// с переменной х.
//Можно убрать.
x:='Монитор';
writeln(x);
x:='Контракт';
writeln(x);
end.