Var n,m,max,min:integer;
Begin
write('Введите число n: ');readln(n);
max:=-10;min:=10;
While n<>0 do
Begin
m:=n mod 10;
if m>max then max:=m;
if m<min then min:=m;
n:=n div 10;
End;
writeln('Максимальная цифра числа: ',max);
writeln('Минимальная цифра числа: ',min);
End.
Дан алгоритм в виде блок-схемы. Найди A,B,C,D, если изначально: A=4,B=8,C=7,D=15. Ответ: A= ,B= ,C= ,D= ПОМОГИТЕ! ОЧЕНЬ СРОЧНО!
Анна Князева [62]
0.
A = 4; B = 8; C = 7; D = 15.
1.
D = C = 7.
C = B = 8.
B = A = 4.
2.
A = 4. B = 4. C = 8. D = 7.
Ответ: A = 4. B = 4. C = 8. D = 7.
Var
s:string;
k,i:integer; {k-количество символов 'o',i-счетчик цикла}
begin
readln(s);
k:=0;
for i:=1 to length(s) do {цикл от 1 до длины строки}
if s[i]='o'
then k:=k+1;
writeln(k);
<span>end.</span>
1. Найдем общее количество пикселей, зная что глубина цвета - 4 бита (значит одним байтом кодируются 2 пикселя) : 125*1024*2 = 256000
2. Осталось разделить найденное значение на 400:
256000/400 = 640
Ответ: 640