Переводим размер в дюймы. 1 дюйм возмем примерно за 2.5 см.
Тогда
10/2.5=4
15/2.5=6
Если в каждом дюйме 600 пикселей, то:
4*600=2400
6*600=3600
Изображение в пикселях: 2400*3600=8640000 пикселей.
На каждый пиксель по 3 байта и того у нас 25920000 (байт) = 24,72 (мегабайт)
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра..
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.
<u><em>
Тестовое решение:</em></u>
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге
Program kek;
Var a, c:integer;
Begin
c:=0;
a:=1;
While a<>0 do begin
Writeln('Вводите целые числа. Когда закончите - введите "0"');
Readln(a);
If (a>0) and (a mod 10 = 1) then do begin
c:=c+a;
end;
End;
Writeln(c);
End.
Вроде так. Нет возможности проверить.
Var
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.
1024 это 2 в 10 степени. Вычисляем сколько символов в тексте - 714000. 714000*10=7140000 бит