Напишите функцию вычесляющею длину отрезка по координатам его концов с помощью этой функции напишите программу вычесляющую перим
Напишите функцию вычесляющею длину отрезка по координатам его концов с помощью этой функции напишите программу вычесляющую периметр треугольника по координатам его ершин
Маша подарила лото, Жанна подарила цветы, Таня подарила раскраску, а Оля-куклу. Задача решается методом исключения. По 1-му пункту: Маша и Жанна не дарили куклу и раскраску по 2-му пункту Оля не дарила лото, раскраску и цветы по 3-му пункту Маша не дарила цветы Надеюсь, что всё понятно
... for i := 1 to N do begin if (a[i] mod 10 = 5) then begin inc(x); y += a[i]; end; end; writeln(y / x); ...
... Проверить все элементы массива A. Если остаток от деления элемента на 10 равен пяти, то увеличиваем переменную x на единицу, а y на значение данного элемента. Затем делим y на x и получает результат.
// 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 Среднее геометрическое - нецелое число