Задача на Паскал...

[589632147]

Да се състави програма на Паскал, която проверяв дали триъгълник е правоъгален по въведени градусни мерки на трите му ъгъла (цели числа)

Много ще съм благораден, ако някой ми помогне.....

Поздрави...

[Реклама]

[Vladi_mnt]

program Zada4a;
Uses Crt;
var alfa, beta, gama: Byte;
begin
ClrScr;
Repeat
write('Alfa='); readln(alfa);
write('Beta='); readln(beta);
write('Gama='); readln(gama);
Until (alfa+beta+gama=180) and (alfa<>0) and (beta<>0) and (gama<>0);
If ((alfa=90) or (beta=90) or (gama=90)) Then writeln('Триъгълникът е правоъгълен')
Else writeln('Триъгълникът не е правоъгълен');
end.

Освен поздравления дай малко репутацийка
P.S. Аз подреждам програмите си, ала като я пуснах тая задачка 'сичко се размести, но предполагам че и така ще я разбереш - което е главното, а не дали си я написал или не - опитай се другя път да намериш логиката в нея и да седнеш да се помъчиш сам и да не търсиш някой който да ти я напише / това биха ти казали всички потребители на този форум /. И все пак, аз съм насреща - преглеждам Паскал раздела секи ден и можеш да ме попиташ за нещо - с удоволствие ще ти помогна ( и ако мога, де) .

[589632147]

Vladi_mnt .много брагодаря... ...добре добре, че има хора като теб

[589632147]

Незнам защо ми излиза" Error 200 :Division by zero " .... в мен ли е грешката ..

[RGT]

Ако си спомням достатъчно добре от опита ми с Паскал, би тряало да се оправи, ако махнеш uses crt; и clrscr;

[Vladi_mnt]