Влаборатории есть чашечные весы без гирь пустая картонная коробка и несколько предметов для исследования которые лежат на столе.найди самый лёгкий предмет.имей в видучто количество предметов звранее неизвестно.составь алгоритм нахождения самого тяжёлого предмета из пяти данных для подсчёта взвешенных предметов используй переменную n.составь алгоритм нахождения двух самых тяжёлых предметов

положите на левую чашку весов один предмет на правую другой, убери предмет который тяжелее,положи на его место другой. повторять до тех пор,пока не найдешь самый легкий.

 

 

взвешиваем по 2 предмета:

один тяжелее другого убираем тот,который легче

взвесим оставшийся и еще пока не найднем самый тяжелый

nomer3

program ab;

uses crt

uses sysutils;

var s,s1: string;

i,j: integer;

begin

clrscr;

write('введите строку слово');

writeln;

readln(s);

for i: =1 to length(s) do

for j: =1 to length(s) do

if (s[i]=s[j]) and(i< > j)

then

if pos(s[i], s1)=0

then s1: =s1+s[i]+' ';

write('повторяющиеся символы: ', s1);

readln;

end.

nomer2

program as

uses crt;

var s,sp: string;

i: integer;

begin

clrscr;

write('s=');

readln(s);

sp: ='';

for i: =1 to length(s) do

sp: =s[i]+sp;

if sp=s then writeln ('палиндром')

else writeln ('не палиндром');

readkey

end.

nomer1

function compare(s1,s2: string): boolean;

begin

result: =s1=s2;

end;

var s1,s2: string;

begin

readln(s1);

readln(s2);

if compare(s1,s2) then write('yes')

else write('no')

end.

var  

  str,letter,out: string;

  n,i,j,m: integer;

begin

  out: = 'все cогласные буквы строки: ';

  letter: = 'бвгджзйклмнпрстфхцчшщ';

  writeln('введите строку ');

  readln(str);

  n: = length(str);

  m: = 21;

  for i: = 1 to n do

    for j: = 1 to m do

    begin

      if str[i]=letter[j] then

        out: =out+str[i];

    end;

    writeln(out);

end.