Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1. utfa.fps
2.какую программу?
3. x(n)=5n²-4n-1
xn-нечётное тогда, когда n-чётное
x(0)=-1
x(2)=11
x(4)=63
x(6)=155
x(8)=287
x(10)=459
x(12)=671
x(14)=923
x(16)=1215
x(18)=1547
x(20)=1919
program xxx;
var i, n, s, k : integer;
a : array [1..20] of integer;
begin
write('введите n=');
readln(n)
writeln('введите элементы массива а: ' );
for i: =1 to n do
readln(a[i]);
s: =0;
k: =0;
if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;
if k=0 then write ('элементов кратных 8 - нет')
else write('сумма элементов кратных 8 =', s);
readln
end.
var
s: string;
z,z1,i: integer;
readln(s);
z: =0;
z1: =0;
for i: =1 to length(s) do
if s[i]='м' then inc(z);
if s[i]='н' then inc(z1);
end;
if z> z1 then writeln('больше букв м');
if z< z1 then writeln('больше букв н');
if z=z1 then writeln('букв м и н равное количество');
бухгалтерия, документооборот.
Популярные вопросы