Программа вроде бы так:
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.
------------------------
Блок-схема - смотри картинку,
а на счет таблицы данных, - я пас, не знаю что это и как.
2 Гб = 2048 Мбайт = 2097152 Кбайт
100*90= 9000 Кб (На одну книгу)
2097152/9000 = 233 книги
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var a,b,h:real;
Write('Введите a,b,h: '); Read(a,b,h);
var n:=Trunc((b-a)/h);
for var i:=0 to n do begin
var x:=a+i*h;
var y:=cos(x)*sqrt(x);
Writeln(x:6:3,y:15:5)
end
end.
<u>Пример</u>Введите a,b,h: 0.2 3.2 0.3
0.200 0.43830
0.500 0.62054
0.800 0.62315
1.100 0.47574
1.400 0.20111
1.700 -0.16799
2.000 -0.58852
2.300 -1.01046
2.600 -1.38169
2.900 -1.65348
3.200 -1.78580
var mas:array [1..15] of integer;
i:integer;
k:biginteger;
function f(mas:integer):boolean;
begin
if (mas mod 3=0) then f:=True;
if (mas mod 3<>0) then f:=False;
end;
BEGIN
k:=1;
for i:=1 to 15 do begin
mas[i]:=random(100)+1;
write(mas[i],' ');
if (f(mas[i])=True) then k:=k*mas[i];
end;
writeln();
if (k=1) then writeln('Нет элементов, кратных 3') else
writeln(k);
end.
Вроде (в), так как за одну секунду качает: 450/10=45 байт в секунду