Программа вроде бы так:
program aaa;
var a, p, q, s: real; x: byte;
begin
writeln ('Введите A, P, q');
readln (a,p,q);
s:=a;
x:=0;
while (s>=a*0.8) and (x<12) do
begin
s:=s-p-0.01*s*q;
x:=x+1;
end;
writeln;
writeln ('стоимость уменьшится более чем на 20 % через ',x,' месяцев');
writeln
end.
------------------------
Блок-схема - смотри картинку,
а на счет таблицы данных, - я пас, не знаю что это и как.
Все за одного и одни за всех
нет
например число 546
если средняя цифра то это 4 а крайние это 5 и 6 4<30~~~
если среднее арифм. то это 5+4+6/2 т.е. 15/2 = 7.5 и опять же 7.5<30
var a: integer;
begin
write('Введите a: ');
readln(a);
if odd(a) then a:=a*a*a else a:=a*a;
writeln(a);
end.
odd(a) - функция, проверяющая нечетность числа. True - если число - нечетное. (Обратная функция not odd(a))
//PascalABC.NET 3.4.2
1.
begin
write(arrrandom(10, -15, 15).Println.Where(x -> x > 0).Sum);
end.
2.
begin
readarrinteger(15).Select(x -> x mod 2 <> 0 ? 1 : x).Println;
end.
3.
begin
readarrreal(10).Where(x -> x > 0).Average.Println;
end.