Question

Jak mam poprawnie rozwiązać zadanie z programowania w języku pascal. Mam napisać taki program który pokaże czy trójkąt jest równoboczny czy różnoimienny czy równoramienny. Mam trochę zrobione ale i ta pokazuje 2 błędy: program trojkat rownoboczny VAR a:integer; b:integer; c:integer; begin writeln(a,b,c,) if (a=b) and (b=c) and (c=a) then readln('rownoboczny') else readln('roznoimienny'); end.

Answer 1

pisane z głowy więc sprawdź średniki

 

nie napisałeś jaki kompilator więc pisze uniwersalnie

 

Program Trojkat;

var

a: integer;

b:integer;

c:integer;

begin

writeln('program sprawdzi jaki to jest trojkat wg bokow a b c');

write('podaj a :');

readln(a);

write('podaj b :');

readln(b);

write('podaj c :');

readln(c);

if ( (a=b) or (b=c) or (c=a) ) then

  if ( (a=b) AND (b=c) AND (c=a) ) then writeln('trojkat rownoramienny')

      else writeln('trojkat rownoboczny')

else writeln('trójkat roznoboczny');

end.