<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function gcd(a,b:int64):int64; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
begin
Writeln(gcd(gcd(36,54),gcd(18,15)))
end.
<u>Результат</u>
3
10(2) = 1*2^1 + 0*2^0 = 2 (10)
10(2) + 10(10) = 2(10) + 10(10) = 12(10)
ответ 12
СРЗНАЧ(B2:D2) = (b2 + c2 + d2)/3 = 6
СУММ(B2:E2) = b2 + c2 + d2 + e2 = 20
b2 + c2 + d2 = 6*3 = 18
b2 + c2 + d2 + e2 - (b2 + c2 + d2) = 20 - 18 = e2 = 2
Ответ: значение ячейки e2 равно 2.
Var a,b,c:real;
begin
writeln('введите значения трех углов:');
readln(a,b,c);
if (a+b+c)<>180 then writeln('введены некорректные данные')else
if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else
if (a=b)and(b=c) then writeln('равносторонний')else
if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else
writeln('разносторонний')
end.