// 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 Среднее геометрическое - нецелое число
1)Сымды жергілікті желірде Ethetnetкабелі мен желілік адаптерлер қолданылады
Сымсыз желі байланыс технология сымсыз жергілікті желі технологиялардың стандартизациясымен IEEE802.11х-ші тобы шұғылданатын болды Мысалы: WLAN Wireless Iocal Area Network қысқартумен жиі кездеседі
2)Мысалы: ақпарат технология дамыту жаңалықтардағы ақпаратты дамыту
3)Телефонды ескі, сымдық телефонға ауыстырыңыз, сымсыз желі бөлінетін сәулену де миға әсер етеді
4)1971 жылы желі арқылы электронды почта жіберуге мүмкіндік беретін алғашқы компьютерлік бағдарлама жасалып, ол кеңінен таралды.
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
Среднее геометрическое - нецелое число
1)Сымды жергілікті желірде Ethetnetкабелі мен желілік адаптерлер қолданылады
Сымсыз желі байланыс технология сымсыз жергілікті желі технологиялардың стандартизациясымен IEEE802.11х-ші тобы шұғылданатын болды Мысалы: WLAN Wireless Iocal Area Network қысқартумен жиі кездеседі
2)Мысалы: ақпарат технология дамыту жаңалықтардағы ақпаратты дамыту
3)Телефонды ескі, сымдық телефонға ауыстырыңыз, сымсыз желі бөлінетін сәулену де миға әсер етеді
4)1971 жылы желі арқылы электронды почта жіберуге мүмкіндік беретін алғашқы компьютерлік бағдарлама жасалып, ол кеңінен таралды.