<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
Да с: с: с: с: с: с: с: с: с: с:
<em>// PascalABC.NET 3.2, сборка 1344 от 22.11.2016</em>
begin
var a:=ReadReal('Введите число');
Write(a,' ');
if (a<2) or (a>12) then Write('не ');
Writeln('принадлежит интервалу [2;12]')
end.
<u>Примеры</u>
Введите число 3.18
3.18 принадлежит интервалу [2;12]
Введите число 16
16 не принадлежит интервалу [2;12]
Чтобы задать восемь цветов, необходимо 3 бита (2³=8). То есть на каждую точку экрана требуется 3 бита видеопамяти.
Всего точек будет 640*350 = 224000
Умножим на 3 бита и получим 672000 бит или 84000 байт.
Умножим на количество страниц: 84000 * 3 = 252000 байт
Ассемблер – <span>программа, которая переводит в машинные коды символьную запись машинных команд</span>