Ответ:
Float a, skv, skb v;
Edit1.Text := StrtoInt(a) ;
skv := a * a;
skb := a * a *6;
v := a * a * a;
Label1.Caption := Площадь квадрата = InttoStr(skv) ;
Label2.Caption := Площадь Куба = InttoStr(skb) ;
Label2.Caption := Объём куба = InttoStr(v) ;
Объяснение:
1000*60*50=3000000 символов - байт = 2,9 мегабайт
var x:integer;
Begin
write ('Введите х='); readln(x);
if x>0 then
write('Положительное')
else
write('Отрицательное');
<em>if x=0 then write('равно нулю')
</em>
end.
ну просто добавить еще одно условие. Ну можно еще условие в условие добавить, а как еще хз.
Все правильно) ///////////
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure pSumPos(m:array of integer; var r:integer);
begin
r:=m.Where(t->t>0).Sum
end;
function fSumPos(m:array of integer):=m.Where(t->t>0).Sum;
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println;
Write('Сумма положительных элементов А: ');
var s:integer;
pSumPos(a,s);
Writeln(s);
Writeln('Сумма положительных элементов B: ',fSumPos(b));
end.
<u>Пример</u>
n= 13
48 39 -37 -28 45 -29 18 7 -23 47 -38 -34 12
n= 14
8 -3 32 -39 11 2 -30 -9 10 43 -43 41 -34 -25
Сумма положительных элементов А: 216
Сумма положительных элементов B: 147