Var d,s:real;
i:integer;
begin
for i:= 1 to 20 do writeln(i,'дюйм = ',i*2.54)
<span>end.</span>
Пн.A,B,C,D
вт.D,C,B,B,A
ср.A,A,A,C,B,D
чт.D,D,D,B,C,A
пт.A,B,A,A,D
A=9
B=6
C=4
D=7
При значениях x1 1 функция принимает истинное значение всегда, в остальных случаях только 0.
Ответ 000,100,101,110,111
Как мы знаем в одном килобайте 1024 мегабайта так мы и получаем ответ 122,8 килобайт,и получается 8388,608байт
Var sum,i:integer;beginsum:=0;for i:=100 to 500 dosum:=sum+i;writeln (i);<span>end.</span>