1)
Program n1;
var a,b,c: real;
begin
readln(a,b,c);
writeln('D=',b*b-4*a*c);
end.
2)
Program n1;
begin
writeln('площадь: ',5.8*5.8*pi-3.8*3.8*pi);
end.
var A:array[1..10] of integer;
i:integer;
s: integer;
begin
writeln('Массив А:');
s:=0;
for i:=1 to 10 do
begin
write('Введите ',i,'-e число ');
readln(A[i]);
if A[i] <> 0 then s:=s+1;
end;
write('Строка чисел: ');
for i:=1 to 10 do
begin
write(a[i],' ');
end;
writeln();
writeln('Сумма элементов, не равных нулю = ',s);
end.
1)Начало
2)Сравни первое и второе числа;если первое меньше второго,то поменяй их местами.
3)Сравни второе и третьего числа;если второе меньше третьего ,то поменяй их местами.
4)Если теперь три числа расположены в порядке убывания ,то исполни пункт 5) этого алгоритма; иначе вернись. к пункту 2).
<span>5)Конец</span>
<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('a=');
var b:=ReadReal('b=');
var c:=ReadReal('c=');
var p:=(a+b+c)/2;
var s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('s=',s:0:1)
end.