Const n=100;
var a: array [1..n] of integer;
s,i: integer;
begin
s:=0;
for i:=1 to n do
{ вывод массива на экран }
begin
a[i]:=Random(100);
write(a[i],' ');
if (i mod 10 =0) then writeln();
end;
{ подсчет суммы элементов, кратных 3 }
for i:=1 to n do
if (a[i] mod 3 =0) then s:=s+a[i];
writeln('сумма равна ',s);
end. <span>
</span>
Переливаем так:
1 (3 л.): 0 0 3 3 0 3 0 3 1 1 0 3 0 3 0
2 (8 л.): 0 8 5 0 3 3 6 6 8 0 1 1 4 4 7 <----- PROFIT!
Var
s, a, b: string;
i: integer;
begin
readln(s);
a:='Да';
b:='Нет';
while pos(a, s) > 0 do
begin
i:=pos(a, s);
delete(s, i, length(a));
insert(b, s, i);
end;
writeln(s);
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var (fact,sqrtx,s):=(1.0,Sqrt(Abs(x)),0.0);
for var i:=1 to n do begin
fact*=i; s+=1/fact+sqrtx
end;
Writeln('S=',5*s)
end.
<u>Пример</u>
n= 20
x= 3.18
S=186.916954143565
<u>№2</u>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var (powi,s):=(1.0,0.0);
for var i:=1 to n do begin
powi*=2; s+=(x+Sqr(Sin(i*x)))/powi
end;
Writeln('S=',s)
end.
<u>Пример</u>
n= 13
x= 0.59
S=1.12411258214649
1)тест1.doc
Тест.doc
2)с:\games\happy\pacman.exe
3)c:\pictures\foto\весна.jpg
4)столбец, абзац, строка
5)редактирования