// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1 begin var a,b,c:integer; Write('Введите три натуральных числа: '); Read(a,b,c); var s:=a+b+c; var k:=Trunc(sqrt(s)); if k*k=s then Writeln('Сумма чисел - квадрат ',k) else Writeln('Сумма чисел не является квадратом целого') end.
Тестовое решение Введите три натуральных числа: 13 4 8 Сумма чисел - квадрат 5
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2 begin var a,b,c:integer; Write('Введите три натуральных числа: '); Read(a,b,c); var s:=power(a*b*c,1/3); if s=int(s) then Writeln('Среднее геометрическое - целое число') else Writeln('Среднее геометрическое - нецелое число') end.
Тестовое решение Введите три натуральных числа: 16 8 15 Среднее геометрическое - нецелое число
begin
var a,b,c:integer;
Write('Введите три натуральных числа: '); Read(a,b,c);
var s:=a+b+c;
var k:=Trunc(sqrt(s));
if k*k=s then Writeln('Сумма чисел - квадрат ',k)
else Writeln('Сумма чисел не является квадратом целого')
end.
Тестовое решение
Введите три натуральных числа: 13 4 8
Сумма чисел - квадрат 5
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2
begin
var a,b,c:integer;
Write('Введите три натуральных числа: '); Read(a,b,c);
var s:=power(a*b*c,1/3);
if s=int(s) then Writeln('Среднее геометрическое - целое число')
else Writeln('Среднее геометрическое - нецелое число')
end.
Тестовое решение
Введите три натуральных числа: 16 8 15
Среднее геометрическое - нецелое число
Если СС системы счисления, то:
Двоичная:
126 = 1111110
Переводим целую часть 12610 в 2-ую систему последовательным делением на 2:
126/2 = 63, остаток: 0
63/2 = 31, остаток: 1
31/2 = 15, остаток: 1
15/2 = 7, остаток: 1
7/2 = 3, остаток: 1
3/2 = 1, остаток: 1
1/2 = 0, остаток: 1
126 = 1111110
Обратно:
Переводим 1111110 в десятичную систему:
1111110 = 1·2⁶+1·2⁵+1·2⁴+1·2³+1·2²+1·2¹+0·1 = 126
Восьмеричная:
126 = 176
Переводим целую часть 126 в 8-ую систему последовательным делением на 8:
126/8 = 15, остаток: 6
15/8 = 1, остаток: 7
1/8 = 0, остаток: 1
126 = 176
Обратно:
Переводим 1768 в десятичную систему:
176 = 1·8²+7·8¹+6·1 = 126
Шестнадцатиричная:
126 = 7E
Переводим целую часть 126 в 16-ую систему последовательным делением на 16:
126/16 = 7, остаток: 14, 14 = E
7/16 = 0, остаток: 7
126 = 7E
Обратно:
Переводим 7E в десятичную систему:
7E = 7·16¹+14·1 = 126
Как-то так)