Я бы сделал так:
var a,a1,a2,a3,a4:integer;
begin
write ('Введите четырехзначное число: '); read (a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
writeln ('Первая цифра: ',a1);
writeln ('Вторая цифра: ',a2);
writeln ('Третья цифра: ',a3);
writeln ('Четвёртая цифра: ',a4);
<span>end.
<u>Этот вид более эстетичный</u> ;)
</span>
вот так:
1101100 = 108 в десятичной системе
1101100 = 6c в шестнадцатеричной системе
На самом деле условие F(х)=0 при х=0 лишнее, поскольку значение F(x)=0.5x² при x≥-1 и так дает F(0)=0.
var
x,F:real;
begin
x:=-3;
while x<4.01 do begin
if x<-1 then F:=x+3
else F:=0.5*x*x;
Writeln('x=',x:4:1,', F=',F:5:3);
x:=x+0.5
end
end.
Результат
x=-3.0, F=0.000
x=-2.5, F=0.500
x=-2.0, F=1.000
x=-1.5, F=1.500
x=-1.0, F=0.500
x=-0.5, F=0.125
x= 0.0, F=0.000
x= 0.5, F=0.125
x= 1.0, F=0.500
x= 1.5, F=1.125
x= 2.0, F=2.000
x= 2.5, F=3.125
x= 3.0, F=4.500
x= 3.5, F=6.125
x= 4.0, F=8.000
V = K * I, где
V - объем;
K - размер изображения;
I - количество бит на символ.
N = 2^i, где
N - количество цветов.
V = K * I .
I = V/K = (2*2^13) / (50 * 100) = 2^14 / (2 * 25 * 25 * 2^2) = 2^14 / (2^3 * 25^2) = 2^11 / 625 = 2048 / 625 = 3,2768 ~ 4 бита.
N = 2^i.
N = 2^4.
N = 16 цветов.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='Победа';
for var i:=1 to s.Length do Writeln(s[i:])
end.
<u>Результат</u>
Победа
обеда
беда
еда
да
а