Предмет: Информатика,
автор: Tarend
Помогите написать 2 программы на паскале , пожалуйста(((
Приложения:
![](https://files.topotvet.com/i/60b/60b6f91aaaf64ee6dd27e963083b11ef.jpg)
Ответы
Автор ответа:
0
2)program chislo;
var n : shortint;
begin
write('Введи число: ');
readln(n);
case n of
1: write('Январь');
2: write('Февраль');
3: write('Март');
4: write('Апрель');
5: write('Май');
6: write('Июнь');
7: write('Июль');
8: write('Август');
9: write('Сентябрь');
10: write('Октябрь');
11: write('Ноябрь');
12: write('Декабрь');
end;
End.
Автор ответа:
0
1)var a, b, c: integer;
begin
write (' Длины сторон: ');
readln (a,b,c);
if (a < b+c) and (b < a+c) and (c < a+b) then
writeln ('Треугольник существует.')
else
writeln ('Треугольник не существует.');
readln
end.
begin
write (' Длины сторон: ');
readln (a,b,c);
if (a < b+c) and (b < a+c) and (c < a+b) then
writeln ('Треугольник существует.')
else
writeln ('Треугольник не существует.');
readln
end.
Похожие вопросы
Предмет: Математика,
автор: zarina2576aaa
Предмет: Русский язык,
автор: Аноним
Предмет: Химия,
автор: danieldex
Предмет: Математика,
автор: сашкакакашк
Предмет: Обществознание,
автор: Верочка1995