Ребят сделайте пожалуйста с помощью программы Паскаль задания номер 7.и задание номер 5. Завтра сдавать д.з а у меня программа не работает(( решите и
5-9 класс
|
пришлите решение задач!..Даю хорошие баллы за это задание.Всем большое спасибо!
Задача 7
var
a, b, c: integer;
begin
readln(a, b, c);
if ((a+b)<=c) or ((a+c)<=b) or ((b+c)<=a) then begin write('Не существует'); exit; end;
if (a=b) and (b=c) then begin write('Равносторонний'); exit; end;
if (a=b) or (b=c) or (a=c) then begin write('Равнобедренный'); exit; end;
write('Разносторонний');
end.
Задача 5
var
s: string;
begin
readln(s);
if (s[1]=s[2]) or (s[2]=s[3]) or (s[1]=s[3]) then write('Да') else write('Нет');
end.
Если возникли вопросы или ошибки во время выполнения программы, пиши в комментариях.
Другие вопросы из категории
Читайте также
мало
эти задания нужно сделать циклами while и for, т е чтобы получилось 12 программ
1. Составьте программу вычисления значения функции: y=7x^2+1/x^2-16
2. Составьте блок-схему алгоритма и программу расположения четырех чисел в порядке возрастания.
3*. Составьте программу, определяющую вид треугольника по трем его сторонам A, B, C.
4. Составьте блок-схему алгоритма и программу вывода на экран всех трехзначных чисел, кратных 7.
5. Составьте блок-схему алгоритма и программу вычисления суммы всех трехзначных чисел, кратных 13.
6*. Составьте программу вывода на экран таблицы степеней 2ⁿ, где 0 ≤ n ≤ 10.
я вас просто умоляю, напишите, пожалуйста
отрицательных элементов нет, то сообщить об этом)
p.s. В паскале