...............................................................
Что типа должно получиться: S=3150;
program Summ;
uses Crt;
var S, i, a, n: integer;
begin
ClrScr; {Очистка экрана}
S:=0;
a:=5;
n:=(200-100) div a; {Количество слагаемых}
for i:=0 to n do
s:=S+(100+i*5);
WriteLn (' S=',s); {Вывод результата}
ReadLn;
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,h):=(0.0,3*Pi,0.6);
var x:=a;
var (k,s):=(0,0.0);
while x<=b do begin
var y:=x*Sin(x);
Writeln(x:5:1,y:18:13);
if y>0 then k+=1 else s+=y;
x+=h
end;
Writeln('Положительных- ',k,', сумма отрицательных ',s)
end.
<u>Пример</u>
0.0 0.0000000000000
0.6 0.3387854840370
1.2 1.1184469031607
1.8 1.7529257355808
2.4 1.6211116333228
3.0 0.4233600241796
3.6 -1.5930735958615
4.2 -3.6606182441371
4.8 -4.7815901224120
5.4 -4.1729282328023
6.0 -1.6764929891936
6.6 2.0561729991883
7.2 5.7144086197139
7.8 7.7886380939219
8.4 7.1786308279416
9.0 3.7090663671758
Положительных- 10, сумма отрицательных -15.8847031844065
Программа вроде бы так:
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.
------------------------
Блок-схема - смотри картинку,
а на счет таблицы данных, - я пас, не знаю что это и как.
var s:string;
i:byte;
begin
writeln('Введите слово:');
readln(s);
writeln;
writeln('Их номера в алфавите:');
for i:=1 to length(s) do
case s[i] of
'А'..'Я' : write(ord(s[i])-1038+' ');
'а'..'я': write(ord(s[i])-1070+' ');
end;
readln
end.