1. друга ищи, а найдёшь - береги
2. старый друг лучше новых двух
Найдите закономерности и продолжите последовательности. а) а, б, в, г, ...б)а, в, д, ё, ...в)Анна Борис, Валентина, Геннадий, ..
ИРИНА ШТОК
А) а, б, в, г, д, е, ... — буквы русского алфавита
б) а, в, д, ё, з, й, ... — буквы русского алфавита через одну
в) Анна, Борис, Валентина, Геннадий, Дмитрий, Елизавета, ... — имена, начинающиеся на буквы русского алфавита
г) о, д, т, ч, п, ш, с, ... — первые буквы чисел (Один, Два, Три...)
д) Москва, Абакан, Норильск, Киев, Воркута, Архангельск, ... — "игра в города" — каждое следующее название начинается на последнюю букву предыдущего
Var f,f1:text;
s:string;
begin
assign(f,'f.txt');
reset(f);
assign(f1,'f1.txt');
rewrite(f1);
while not eof(f) do
begin
readln(f,s);
{есть функция:
function TrimRight(s: string): string;
Возвращает строку с удаленными конечными пробелами
Можно и так, как написано ниже}
while s[length(s)]=' ' do delete(s,length(s),1);
writeln(f1,s);
end;
close(f);
close(f1);
end.
var a: array [1..10] of integer;
i: integer; ss: real; cc: byte;
begin
ss:=0;
cc:=0;
for i:=1 to 10 do begin
write('A[',i,'] = ');
readln(a[i]);
if a[i]>5 then begin
ss:=ss+a[i];
inc(cc);
end;
end;
writeln;
writeln('Среднее арифметическое = ',ss/cc);
end.
Var
s:real;
i,n:longint;
begin
read(n);
for i:=1 to n do
s:=1/(2*i-1);
writeln(s);
end.