Ответ:
На алгоритмическом языке:
нц ПОКА < условие >
< тело цикла >
кц
В Паскаль:
while < условие > do
<оператор или блок begin .. end>
end;
Var a, b : real;
begin
readln(a);
readln(b);
if a>b then writeLn(a,b)
else writeln(b,a);
readln;
end.
Попробуй так
Var m,m2,m3: integer;
begin
readln(m);
m2:=round(m-0.45*m);
m3:=m+m2;
writeln('1: ',m,', 2: ',m2,', 3: ',m3,', вместе: ',m+m2+m3);
end.
Пример:
20
1: 20, 2: 11, 3: 31, вместе: 62
Бит может принимать значения 0 или 1.(2)
8 бит - длинна строки.(8)
Следовательно различных комбинаций может быть: 2^8=256