Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;

var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>

0 0

4 года назад

Pascal ABC Дан текстовый файл t1.txt, содержащий целые числа, не превышающие 30000. Найти длину самой длинной цепочки одинаковых

Анастасия46алибон... [47]

Если цепочки две, то выводится ближайшая. Пойдет?

//t1.txt должен быть в папке с программой
//Pascal
var
f: text;
numValue, Counts, n, c, t, i: integer;
begin
assign(f, 't1.txt');
reset(f);
Counts := 0;
c := 0;
while not eof(f) do
    begin
      readln(f, n);
      if (c = 0) or (n = t) then
        c := c + 1
      else
        c := 1;
      t := n;
      if c > Counts then
      begin
          Counts := c;
          numValue := n
      end
    end;
close(f);
assign(f, 't2.txt');
rewrite(f);
writeln('Длина цепочки: ', Counts);
for i := 1 to Counts do
    writeln(f, numValue);
close(f)
end.

0 0

4 года назад

Составьте логическую схему к выражению F=(A+B)*(A*B)ِ

Составьте логическую схему к выражению F=(A+B)(AB)ِ