Дан АВСД-прямоуг. АВ=А; ВС=А-В
1)ВС=20-5=15
S=AB*BC=20*15=300
P=2AB+2BC=2*20+2*15=40+30=70
2) BC=12-3=9
S=12*9=108
P=2*12+2*9=24+18=42
Ответ:
var a,b,c,d:integer;
begin
writeln('введите число'); //запрос числа
readln(a);
d:=a; //это для красоты
while (a<>0) do begin //пока мы не дойдём до последней цифры в числе делать следующее
b:=a mod 10; //берём последнюю цифру числа
c:=c+b; //находим сумму цифр
a:=a div 10; //убираем из данного числа последнюю цифру
end;
writeln('сумма цифр числа ',d,' = ',c); // вывод результата
end.
Вроде вот)
<h2>Цикл for</h2>
- uses Math;
- var
- i: integer;
- sum: real;
- begin
- for i := 1 to 100 do
- Sum := Sum + Sqr(i);
- Writeln(Sum);
- end.
<h2>Цикл while (предусловие)</h2>
- uses Math;
- var
- i: integer;
- sum: real;
- begin
- while i <= 100 do
- begin
- Sum := Sum + Sqr(i);
- i := i + 1;
- end;
- Writeln(Sum);
- end.
<h2>Цикл repeat..until (постусловие)</h2>
- uses Math;
- var
- i: integer;
- sum: real;
- begin
- repeat
- i := i + 1;
- Sum := Sum + Sqr(i);
- until i >= 100;
- Writeln(Sum);
- end.
Директор узнал то что это мог сделать 1 из 100 учеников
<span>а) (-b-sqrt(sgr(b)-4*a*c))/(2*a) = (-b- √(b^2 - 4ac))/(2a)
b) 75*sqrt(sgr(b)+2*a)/(sin(0.6)-a) = 75√(b^2 + 2a)/(sin (0,6) - a)
c) sin(a – exp(3*ln(b)))/(sqr(a)+cos(b))</span> = sin(a - e^(3ln b)) / (a^2 + cos b)