Var a,b,c,min,max,s: integer;
begin
write('Ведите числo а '); readln(a);
min:=a; max:=a;
write('Ведите числo b '); readln(b);
if b<min then min:=b;
if b>max then max:=b;
write('Ведите числo c '); readln(c);
if c<min then min:=c;
if c>max then max:=c;
writeln('Сумма min + max = ',min+max);
end.

0 0

4 года назад

Дана функция f(x)=sin^2x.Составить программу для вычисления функций на отрезке от А до B с шагом h.

Андрей Багаев 2014

Program task;

var i,a,b,h:longint;
begin
writeln('a?');
readln(a);
writeln('b?');
readln(b);
writeln('h?');
readln(h);
i:=a;
while (i<=b) do begin
writeln(sin(i)*sin(i));
i+=h;
end;
readln;
end.

0 0

4 года назад

Для хранения растрового изображения размером 171×171 пикселей отвели 4 КБ памяти. Каково максимально возможное число цветов в па

Марина1122

I-память
k-количество пикселей
i-вес одного пикселя
N-палитра
---
I=k*i
N=2^i
i=I/k=1.12
округляем до 1
N=2
в палитре два цвета.

0 0

4 года назад