У меня есть проблема-я ничерта не понимаю в програмировании в паскале Мне дали 2 задачки(элементарные),которые надо сдать,иначе мне капец...,но я ,как уже сказал,в этом не шарю( Ограмная просьба для вменяемой части посетителей пп - помогите с решением!
1)Дана дата рождения человека. Посчитать сколько полных лет он прожил.
2)Даны 3 числа. Выяснить могут ли они являться сторонами треугольника? Если да,то определить какой это треугольник(равнобедренный,равносторонний,прямоугольный или тупоугольный)
Прошу не заливать грязью меня.Знаю,что это не трудно,но я в информатике мало понюмаю.
Могу дать совет - когда я не мог решать задачки в институте, то платил челам, которые делали это за меня. Думаю если совсем плохо будет - поищи в яндексе таких челов, хотя у меня прям на доске с расписаниеями были наклеены объявления о том, что помогают решать задачи =)
program one
var gr,v,g:integer;
begin
writeln('введите год рождения');
readln(gr);
writeln('введите текущий год');
readln(g);
v:=g-gr-1;
writeln('возраст',v);
readln;
end.
program2
uses crt;
var
a,b,c:integer;
begin
clrscr;
write('a?');
readln(a);
write('b?');
readln(b);
write('c?');
readln(c);
if (a>b+c) or (b>a+c) or (c>a+b) then write ('takogo ne mozhet bit') else
if (a=b) and (b=c) then write ('ravnostoronniy treugolnik') else
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b)
then write ('pramougolniy treugolnik') else
if ((a=b) or (a=c) or (b=c)) and not ((a=b) and (b=c))
then write ('ravnobedrenniy treugolnik') else
write('obichniy treugolnik');
end.
var
god1,god2,mesac1,mesac2,den1,den2,vozrast:integer;
begin
write('god rozhdeniya?');
readln(god1);
write('mesac rozhdeniya?');
readln(mesac1);
write('den rozhdeniya?');
readln(den1);
write('kakoy seychas god?');
readln(god2);
write('kakoy seychas mesac?');
readln(mesac2);
write('kakoy seychas den?');
readln(den2);
if mesac2>mesac1 then vozrast:=god2-god1;
if (mesac2=mesac1) and (den2<=den1) then vozrast:=god2-god1 else
if (mesac2=mesac1) and (den2>den1) then vozrast:=god2-god1-1;
if mesac2
writeln;
writeln(vozrast);
end.
Program SurprizPrepodu;
Var x,y,z=integer;
Writeln('vvedite datu rojdeniya:',x,'.',y,'.',z);
Writeln('Spasibo, sha podumau');
Wtiteln('FAK YOU SPILBERG! CHE NE GDAL, BARAN? SOSI MNE POH NA SESSIU, YA V ARMIU HOCHU! ');
End.
Мне дали 2 задачки(элементарные),которые надо сдать,иначе мне капец...,но я ,как уже сказал,в этом не шарю( Ограмная просьба для вменяемой части посетителей пп - помогите с решением!
');
