Program n1;
var n: real;
begin
write('введите число: ');
readln(n);
if n>0 then writeln(n*n) else writeln(n*n*n);
end.
Я думаю 3
...........................
<span>(3*3 + 3) :3 = 4............................................</span>
Это логическая задача которая рещается с помощью таблички
начертите табличку в тетради которая будет состоять из 5 столбцов и 4-х строк
затем пропишите в 4 столбцах магазины, а в сроках название покупак
после чего можно приступать к решению задачи
нам известно что в магазине D не было Дискет и джёстиков значит в столбце D напротив в строке Дискеты ставим знак минус и джойстик тоже минус
Program Katarina55;
uses crt;
var
x,poz,neg:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа находит количество положительных и отрицательных введённых чисел. ');
writeln('Ввод продолжается, пока не будет введен 0.');
writeln();
neg:=0;
poz:=0;
repeat
writeln('Введите число '); readln (x);
if x<0 then neg:=neg+1;
if x>0 then poz:=poz+1;
until x=0;
writeln();
writeln('Программа закончила работу.');
writeln('Количество введённых чисел:');
writeln(' положительных: ',poz);
writeln(' отрицательных: ',neg);
end.