Вопрос по информатике:
Помогите пожалуйста решить две задачи в программе Паскаль!Сейчас прикреплю пример письменного варианта подобной задачи.Очень нужно!
1)Определить,является ли треугольник равносторонним.
2)Найти в произвольном диапазоне сумму нечётных чисел.
- 20.06.2016 00:34
- Информатика
- remove_red_eye 13931
- thumb_up 23
Ответы и объяснения 1
// Задание №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.
- 21.06.2016 01:59
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.