Помогите пожалуйста решить 2 задачи по информатике! Пример подобной задачи есть на фотографии.. 1) Определите,является ли треуго
Помогите пожалуйста решить 2 задачи по информатике! Пример подобной задачи есть на фотографии.. 1) Определите,является ли треугольник равносторонним. 2)Найти в произвольном диапазоне сумму нечётных чисел.
Странно, вроде уже отвечал... // Задание №1 var a,b,c:real; begin writeln('Введите длины сторон треугольника'); readln(a, b, c); if (a=b) and (b=c) and(a>0) then writeln('Равносторонний') else writeln('Не равносторонний'); end. //Задание №2 var a, b, i, s: integer;
begin writeln('Введите левую границу диапазона'); readln(a); writeln('Введите правую границу диапазона'); readln(b); s := 0; for i := a to b do if i mod 2 <> 0 then s := s + i; writeln('Сумма Нечетных:', s); end.