Var
A,Sp,So:real;
i:integer;
Begin
Sp:=0;
So:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A<0 then So:=So+A
else Sp:=Sp+A;
End;
WriteLn('Сумма отрицательных: ',So);
WriteLn('Сумма положительных: ',Sp);
End.
Uses drawman;beginfield(23,5);topoint(1,4);pendown;topoint(1,2);topoint(4,2);topoint(4,4);topoint(1,4);penup;topoint(3,3);pendown;topoint(3,1);topoint(6,1);topoint(6,3);topoint(3,3);penup;topoint(5,4);pendown;topoint(5,2);topoint(8,2);topoint(8,4);topoint(5,4);penup;topoint(7,3);pendown;topoint(7,1);topoint(10,1);topoint(10,3);topoint(7,3);penup;topoint(9,4);pendown;topoint(9,2);topoint(12,2);topoint(12,4);topoint(9,4);penup;topoint(11,3);pendown;topoint(11,1);topoint(14,1);topoint(14,3);topoint(11,3);penup;topoint(13,4);pendown;topoint(13,2);topoint(16,2);topoint(16,4);topoint(13,4);penup;topoint(15,3);pendown;topoint(15,1);topoint(18,1);topoint(18,3);topoint(15,3);penup;topoint(17,4);pendown;topoint(17,2);topoint(20,2);topoint(20,4);topoint(17,4);penup;topoint(19,3);pendown;topoint(19,1);topoint(22,1);topoint(22,3);topoint(19,3);penup;end.
PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
program pascal;
var s, v, r:real;
begin
writeln('ВВедите радиус');
readln(r);
s:=4*3.14*r*r;
v:= 4/3*3.14*r*r;
Writeln('Площадь шара=',s,'Объем шара=',v);
end.
1) Задумываешь какой торт ты хочешь (малиновый, со сливками и тд)
2) Для чего
3) Какие инградиенты понадобятся
4) Какие приспособления (плита, нож и тд).
5) Сколько денег на все это нужно? И сколько времени.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ArrRandom(ReadInteger('Число элементов массива х:'),-99,99);
x.Println; var a:=x.Where(p->p>0).Sum;
var y:=ArrRandom(ReadInteger('Число элементов массива y:'),-99,99);
y.Println; var b:=y.Where(p->p>0).Sum;
var t:=ArrRandom(ReadInteger('Число элементов массива t:'),-99,99);
t.Println; var c:=t.Where(p->p>0).Sum;
Writeln('Z=',Ln(a)+Power(Cos(b),3)+c)
end.
<u>Пример</u>
Число элементов массива х: 8
56 59 24 -5 -13 -24 9 -86
Число элементов массива y: 11
0 6 25 -69 86 34 -92 72 -39 -64 96
Число элементов массива t: 6
-54 24 -15 50 0 19
Z=97.999309110524