Var a,b,c,d,nod,k:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
c:=a; d:=b;
while (c>0)and(d>0) do
if c>d then c:=c mod d else d:=d mod c;
nod:=c+d;
k:=(a div nod)*(b div nod);
writeln(k,' квадратов размером ',nod,'x',nod);
end.
Пример:
a = 6
b = 15
10 квадратов размером 3x3
20*20/8 (доводим до байтов) = 50;
250 байт / 50 = 5 бит на пиксель.
2^5 = 32 цветов.
Блюдо№1- Взять мясо, провернуть мясо в мясорубке, взять тесто, закатать мясо в тесто, сварить тесто
Блюдо№2-Взять сыр, взять хлеб, нарезать сыр, нарезать хлеб, положить сыр на хлеб(бутерброт)
Блюдо№3- Взять тесто, поджарить тесто, взять сыр, нарезать сыр, закатать сыр в тесто(блины с сыром)
№1
var
a,b,v:real;
begin
readln(a,b);
v:=4/3*Pi*sqr(b/2)*(b/2);
a:=sqr(a)*a;
v:=a-v;
writeln(v:7:4);
end.
№2
var
s:string[6];
begin
readln(s);
if ((strtoint(s[1])+strtoint(s[2])+strtoint(s[3]))=
(strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))) then
writeln('Является') else
writeln('Не является');
end.
№3
var
a,b:integer;
begin
readln(a,b);
if (a<90) and (b<90) and (180-a-b<90) then
writeln('Остроугольный') else
if (a=90) or (b=90) or (180-a-b=90) then
writeln('Прямоугольный') else
writeln('Тупоугольный');
end.