Задача1: Дан номер месяца (1-январь 2-февраля и тд.). Вывести на экран количество дней в этом месяце для невисокосного года. P.S. долго морочился, но не справился .
добавлено спустя 4 минуты:
Задача2: Даны углы треугольника. Определить каким является данный треугольник. (остроугольный, тупоугольный, прямоугольный).
1
var a:integer;
begin
readln(a);
case a of
1,3,5,7,8,10,12:writeln ('31');
2:writeln ('28');
4,6,9,11:writeln ('30')
else writeln('err');
end;
readln end.
Первый. Создаешь массив month = array[1..12] of integer;
И заполняешь его, какому месяцу, какой день.
добавлено спустя 54 секунды:
Виктор, тоже можно.
Второй: Если все углы меньше 90 градусов, то острый, если хотя бы один равен 90 градусов, то прямоугольный, если хотя бы один больше 90 градусов, то тупоугольный. Вроде не ошибся.
05 Мар 2013, 17:222
var a,b,c:integer;
begin
readln(a,b,c);
if(a+b+c<>180) then
writeln('Это не треугольник')
else
begin
if(a=90)or(b=90)or(c=90) then
wrineln('Прямоугольный')
else if(a>90)or(b>90)or(c>90) then
writeln('Тупоугольный')
else
writeln('Остроугольный');
end;
readln
end.
Виктор, огромное спасибо. нашел свою ошибку
добавлено спустя 1 минуту:
Avarskiy, брат мне геометрия не нужна, я саму программу имел ввиду.