Если понять принцип формирования числа в восьмеричной системе счисления, то станет ясно - после каждого перехода от семерки к новому числу, прибавляется одна цифра. Если 17 перевести в двоичную, получим 1111. Значит, следующее число даст нам 10000. В восьмеричной системе следующим будет 20
28800 / (6 * 40 * 60) = 2 байта на символ или 16 битов.
Var k:integer;
s, x, a:real;
begin
writeln('Введите цену за первые 75 газет.');
readln(a);
writeln('Введите цену за последующие газеты.');
readln(x);
k:=133;
s:=(a*75)+((133-75)*x);
writeln(s);
end.
1)циклы с условием
2)у цикла " повторить n раз" чётко заданное кол-во раз,а у цикл <span>" пока"
будет работать пока будет выполнятся условие
3)нужны,цикл - это и есть повтор каких-либо действий,пока не выполнится условие.
</span>
Var a,b,c,d,i,n,s:integer;beginwriteln('vvedite n');readln(n);for i:=1000 to 9999 dobegina:=n div 1000;b:=n div 100 div 10 mod 10;c:=n div 100 mod 10;d:=n mod 10;end;s:=a+b+c+d;if s mod 2=0 thenwriteln('четно')else writeln('нечетно')end.
