Здравствуйте, мне нужна помошь в PascalABC нужно составить задачи по заданию ниже. Ниже будут задания, очень прошу помочь. И ещё
Здравствуйте, мне нужна помошь в PascalABC нужно составить задачи по заданию ниже.
Ниже будут задания, очень прошу помочь. И ещё, прошу, если не трудно при отсылании примеров желательно над каждым примером написать задание) чтобы было понятно что к чему относится. Заранее благодарю Вас!
-----------------------------------
1. Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов.2. Ввести с клавиатуры трехзначное число и найти сумму всех цифр и определить, не превосходит ли она заданное число N.3. Даны переменные <em>x, </em><em>y. </em>Выяснить, принадлежит ли точка с координатами (<em>x, y</em>) заштрихованной фигуре (рис. 3)(Рисунок вложил).
Program p_1; uses crt; var a,b,c,P,S: real; begin clrscr; write ('a='); readln (a); write ('b='); readln (b); c:=sqrt(sqr(a)+sqr(b)); P:=a+b+c; S:=a*b/2; writeln ('P=',P:5:2); writeln ('S=',S:5:2); readln (); end.
program p_2; uses crt; var x,s,N: integer; begin clrscr; read (x,N); s:=0; while (x<>0) do begin s:=s+x mod 10; x:=x div 10; end; if (s<N) then writeln ('s<N, because ',s,'<',N) else writeln (s,' do not <',N); readln (); <span>end.</span>
<span>A:=X div 1000=1234/1000=1 B:= X mod 1000 div 100=(1234/1000)/100=234/100=2 C:= X mod 100 div 10=(1234/100)/10=34/10=3 D:= X mod 10=1234/10=4 Y:=1000*d+100*c+10*b+a=1000*4+100*3+10*2+1=4321 </span><span>F:= X - Y+1=1234-4321+1=-3086</span>