1+1=2*2=4+1=5
1+1=2+1=3*2=6*2=12*2=24+1=25*2=50
1*2=2+1=3*2=6*2=12*2=24*2=48+1=49*2=98+1=99
Программа вроде бы так:
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.
------------------------
Блок-схема - смотри картинку,
а на счет таблицы данных, - я пас, не знаю что это и как.
1.
А) Истина
Б) Истина
В) Ложь
Г) Истина
Д) Ложь
2.
d f d^f d\/f -d -f
1ложь ложь ложь ложь истина истина
2ложь истина ложь истина истина ложь
3истина ложь ложь истина ложь истина
4истина истина истина истина ложь ложь
Вот здесь почитайте пожалуйста
Var s,t,n:integer;
begin
writeln('введите n>999');
readln(n);
s:=(n div 100);
if s>10 then s:=s mod 10;
t:=(n div 1000);
writeln('количество сотен-->',s);
writeln('количество тысяч-->',t);
end.