Var
s, k, a, sr: integer;
begin
s := 0;
k := 100;
a := 12;
repeat
s := s + a;
k := k - 10;
a := a - 1;
until not(a > 1);
sr := s + k;
writeln(sr);
writeln(k);
end.
Var n:integer;
begin
write('n = ');
readln(n);
if n div 10 <= n mod 10
then writeln('цифры числа не убывают слева направо')
else writeln('цифры числа убывают слева направо');
end.
Пример:
n = 59
цифры числа не убывают слева направо
Var x,y:integer;
v:longint;
i:real;
x:=320;
y:=400;
v = 128000;
i:= v/(x*y);
writeln('Глубина цвета: ', i);
Ответ:
800 бит = 800 / 8 = 100 байт
ASCII - один символ на байт, ответ 100 символов
Unicode - один символ = 2 байта, 100 / 2 = 50 символов
Все они - устройства вывода