// 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.
<u><em>Тестовое решение</em></u>
Введите три натуральных числа: 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.
<u><em>Тестовое решение</em></u>
Введите три натуральных числа: 16 8 15
Среднее геометрическое - нецелое число
Пишем от 0 до 6, потом добавляем +1 в старший разряд...
0 1 2 3 4 5 6
10 11 12 13 14 15 16
20
А для натурального ряда отсчет идет с 1, поэтому
1 2 3 4 5 6
10 11 12 13 14 15 16
20 21
А=DD(16)=221(10);B=337(8)=223(10)
1)11011110(2)=222(10)
2)10111010(2)=186(10)
3)11101101(2)=237(10)
4)11101111(2)=239(10)
Ответ:1
1. Экранирование внешних воздействий.
2. Вторичный источник питания
3. Основа для построения вычислительной системы
4. Часть, исполняющая код. Главная часть аппаратного обеспечения вычислительной машины.
5. Хранение выполняемого кода, входных и выходных данных. При выключении вычислительной машины освобождается.
6. Хранение и накопление данных.
7. Чтение и запись дисков
8. Преобразование графического образа в форму для вывода на монитор.
9. Обработка и вывод звука.
10. Охлаждение вычислительной машины.