Предназначенное для перевода текста или графики на физический носитель
из электронного вида малыми тиражами (от единиц до сотен) без создания печатной формы.
Попробуйте взять элементы физики, такие как разделы кинематики, динамики и прочее.
<span>Можно взять тело брошенное под определенным углом и смотреть его траекторию.
</span>
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var (a,b):=ReadInteger2('Границы интервала [A,B]:');
for var n:=a to b do
if (Abs(n mod 10)=3) and (n mod 3=0) then Print(n)
end.
<u>Пример</u>
Границы интервала [A,B]: -50 142
-33 -3 3 33 63 93 123
<u>№2</u>
begin
var (a,b):=ReadInteger2('Границы интервала [A,B]:');
var k:=0;
for var n:=a to b do begin
var m:=Abs(n);
if (m mod 10=9) and (m mod 100<>99) and (m>=100)
and (m<=999) then begin Print(n); k+=1 end
end;
if k=0 then Writeln('Таких чисел нет')
end.
<u>Примеры</u>
Границы интервала [A,B]: -200 160
-189 -179 -169 -159 -149 -139 -129 -119 -109 109 119 129 139 149 159
Границы интервала [A,B]: 52 101
Таких чисел нет
<u>№3</u>
begin
var n:=ReadInteger('Введите количество предметов:');
var m:=0.0;
for var i:=1 to n do begin
Write('Маcса предмета № ',i,': '); m+=ReadReal;
end;
Writeln('Масса груза равна ',m)
end.
<u>Пример</u>
Введите количество предметов: 5
Маcса предмета № 1: 24.62
Маcса предмета № 2: 8.1
Маcса предмета № 3: 132
Маcса предмета № 4: 24.5
Маcса предмета № 5: 52.7
Масса груза равна 241.92
1) 3 бит
N = 8 = 2^i
2) тоже также только 128 = 2^7
7 бит
3) 2^3 = 8 подъездов
4) 2^4 = 16 эт
5) 8*16 = 2^3 * 2^4 = 2^ 7
7 бит
6) 2^ 6 = 64