Пустой лист - "создать"; (скорее всего это и имели ввиду)
Дискета - "сохранить";
Дискета с карандашом - "сохранить как"
Var a,b,c,p:integer;
s,p1:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln(c);
readln(c);
p:=a+b+c;
p1:=(a+b+c)/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('perimetr=',p,' plosciadi=',s);
readln;
end.
Ответ:
var a = -2;
var b = 2;
var c = 3;
var mas = [a, b, c]; //или mas.push(a); mas.push(b); mas.push(c);
for(var i = 0; i < mas.length; i++)
{
if(mas[i] < 0)
{
Math.pow(mas[i], 2); //или mas[i]*mas[i];
//Вывод квадратов отрицательных чисел
}
else if(mas[i] > 0)
{
Math.pow(mas[i], 3); //или mas[i]*mas[i]*mas[i];
//Вывод кубов положительных чисел
}
}
Объяснение:
Массив использован для удобства, универсальности и компактности кода.
11001-1001=10000
10001-101=9900
Я мог ошибиться в формуле. Она в цикле, перепроверь.