Program konf;
var a, b, summ: real;
begin
a := 1.2;
readln(b);
while a < 2 do
begin
summ := a * b;
writeln(summ, ' za ', a);
a := a + 0.2
end;
<span>end.</span>
Между Вес и Дым можно прямую поставить, но я сделал круговую, чтобы не путаться
Program p1;
var
a,b,c:integer;
begin
writeln('Input a');
read (a);
writeln ('Input b');
read (b);
c:=a+b;
writeln ('Resault = ', c);
end.
6 бит. 8×8=64 64 = 2 в 6 степени. Степень двойки показывает кол-во информации в битах
А) в нашем классе 25 девочек
б) комары - животные
в) "2" - знак