Сначала в 5 литров и перелить это в 3 остаётся 2 литра, такое действие повторить ещё один раз
var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
1.
700*400*32/8/1024=~1093 кбайт
880*600*32/8/1024=~2062 кбайт
1400*800*32/8/1024=~4375 кбайт
2200*1400*32/8/1024=~12031<span> кбайт
2. ((ln(8092)/ln(2))+округлить вбольшую до целого)*1200*1920/8/1024/1024=3.57 мбайт
3. (ln(32768)/ln(2)) / (ln(32)/ln(2)) = 32 бит пикс / 5 бит пикс = 6.4 раз
4. 1200 байт * 8 / (ln(64)/ln(2)) = 1600 точек.
5. 800*600*(ln(16)/ln(2)) бит пикс / 8 / 1024 = 234,375 кбайт будет занимать/весить. Достаточно.
6.
10 см ширина * (300/2.54) = 1181 пикс ширина
15 см высота * (300/2.54) = 1772 пикс высота
1181*1772*32 бит / 8 / 1024 / 1024 = 7.9 мбайт.</span>
Задание 2, 1:
program zadacha1;
uses crt;
var x, y: real;
begin
clrscr;
write('enter x: ');
readln (x);
x:=(x*pi)/180; // в Паскале используется измерение в радианах, здесь мы
// переводим из градусов (так как мы задаем значение в градусах) в радианы
y:=sqr(cos(x))+sqr(sin(x))*sin(x);
writeln ('y=', y:0:4);
readkey;
<span>end.
2
program zadacha2;
uses crt;
var y: real;
begin
clrscr;
y:=sqr(sin(pi))+ pi/2;
writeln ('y=', y:0:4);
readkey;
<span>end.
</span>
3
program zadacha3;
uses crt;
var x, y: real;
begin
clrscr;
write ('enter x: ');
readln (x);
x:=(x*pi)/180;
y:=sin(x)/cos(x) + 0.25;
writeln ('y=', y:0:4);
readkey;
end.
4
program zadacha4;
uses crt;
var x, y, z: integer;
begin
clrscr;
write ('enter x, z');
readln (x, </span><span>z</span>);
y:=abs(x)+2*abs(z);
writeln ('y=', y:0:4);
readkey;
end.