Задания.ру
Анонимно
5 часов назад

Заданы стороны треугольника a b c . Определить , является ли он равносторонним. Написать программу на языке паскаль

Ответ

Анонимно
var a,b,c:integer;  
begin
writeln('Введите стороны треугольника: ');
readln(a,b,c);
if (a = b) and (b = c) then
writeln('Равносторонний');
else
writeln('Неравносторонний');
readln
end.

Новые вопросы по Информатике

ДАЮ 20 БАЛЛОВ Дан фрагмент программы: m := 7 n := 5 p := 7 m := n - p p := m + p p := p - n Чему будут равны значения величин m и p после выполнения этого фрагмента?
5 - 9 классы
2 минуты назад
Пользователь клавиатуры вводит в минуту 60 знаков. Какое количество текстовой информации вводит этот пользователь за 5 минут в кодировке Unicode?
5 - 9 классы
5 минут назад
Составить алгоритм программы решения квадратного уравнения вида ах²+вх+с=0 .Решить задачу как в QBasic
10 - 11 классы
5 минут назад
Что тут не правильно?(15 баллов a- int(input ('20:')) if a>=('18:') print ("доступ разрешен") else: print ("доступ запрещен")
5 - 9 классы
9 минут назад
Срочно 50 баллов даю Решите с объяснением Проверьте является ли частное от деления суммы четырех произвольных чисел, введенных с клавиатуры, на разность двух последних из них целым числом!!!
10 - 11 классы
9 минут назад