Для программы обычно необходимы входные значения и соответственно то, что она возвращает. Вот, если она принимает с каждой новой строки (ввел длину одной стороны - Enter) по одному значению. На выходе она отдаст "true" - истина (если хоть две стороны равны) или "false" - ложь.
var a, b, c: integer; begin readln(a); readln(b); readln(c); if (a=b) or (a=c) or (c=b) then writeln('TRUE - trikutnik rivnobedrenyj') else writeln('FALSE - trikutnik ne rivnobedrenyj'); end.
Код полностью рабочий, только что проверен. Текст в 'кавычках' можно заменить на любой другой, но не используя символов кириллицы. Писать только на англ раскладке vot tak, kak bi eto ne bilo ushasno or typicaly print in English. Все знаки препинания и другие символы необходимо переписать в точности, не забывайте.
var a, b, c: integer;
begin
readln(a);
readln(b);
readln(c);
if (a=b) or (a=c) or (c=b) then writeln('TRUE - trikutnik rivnobedrenyj')
else writeln('FALSE - trikutnik ne rivnobedrenyj');
end.
Код полностью рабочий, только что проверен. Текст в 'кавычках' можно заменить на любой другой, но не используя символов кириллицы. Писать только на англ раскладке vot tak, kak bi eto ne bilo ushasno or typicaly print in English. Все знаки препинания и другие символы необходимо переписать в точности, не забывайте.
program Number_of_mounth;
var month:byte;
begin
write('Введите номер месяца:');
readln(month);
if(month<1)or(month>12)then
writeln('Вы ввели неправильный номер месяца!')
else
begin
write('Название месяца:');
case month of
1:writeln('Январь');
2:writeln('Февраль');
3:writeln('Март');
4:writeln('Апрель');
5:writeln('Май');
6:writeln('Июнь');
7:writeln('Июль');
8:writeln('Август');
9:writeln('Сентябрь');
10:writeln('Октябрь');
11:writeln('Ноябрь');
12:writeln('Декабрь');
end;
write('Количество дней в месяце:');
case month of
1,3,5,7,8,10,12:writeln('31');
4,6,9,11:writeln('30');
2:writeln('28 или 29');
end;
write('Времягода:');
case month of
1,2,12:writeln('Зима');
3,4,5:writeln('Весна');
6,7,8:writeln('Лето');
9,10,11:writeln('Осень');
end;
if not (month=1)then writeln('Это не первый месяц в году');
if not (month=12)then writeln('Это не последний месяц в году');
end;
Объяснение:
Ошибка была в объявлении переменой а именно в начале блока бегин к переменой month задавался тип byte, это делает до начала блока в Var