Регистрация
parvizmirzoev03
06.07.2020 16:18
Информатика
Есть ответ 👍

Написать программу которая будет проверять истинные высказывания равнобедренном треугольнике (программа должна проверить по введённым сторона будет ли треугольник равнобедренным)

141
194
Посмотреть ответы 2

Ответы на вопрос:

viklya30
viklya30
4,5(32 оценок)

var a,b,c:integer;

begin

write('Введите три стороны треугольника через пробел: ');

readln(a,b,c);

if (a=b) or (b=c) or (a=c) then writeln('Треугольник равнобедренный')

else writeln('Треугольник не является равнобедренным')

end.

Объяснение:

dimevdokim
dimevdokim
4,6(37 оценок)
ответ:

Цикл з лічильником:

var i,sum: integer;beginfor i:= 1 to 100 doif i mod 5 = 0 then sum:=sum+i;write(sum);end.

Цикл з передумовою:

var i,sum: integer;beginwhile i<100 dobegini:=i+1;if i mod 5 = 0 then sum:=sum+i;end;write(sum);end.

Пример работ Записати у виглядi циклу з лічильником , i циклом з передумовою.Знайти суму ">

Популярно: Информатика