Сидели как-то на берегу реки три школьных товарища и вели неторопливую беседу. фамилия одного из этих – токарев, второго – слесарев, а третьего – плотников. отец одного из школьников работает плотником, второго – токарем, третьего – слесарем. – интересно, – сказал мальчик, отец которого был слесарем, – что ни один из наших отцов по той специальности, от которой произошла его фамилия, не работает. – а ты ведь прав, – подтвердил после раздумий плотников. кем работают отцы

Два решения. 1. токарев - плотник, плотников - слесарь, слесарев - токарь. 2. токарев - слесарь, плотников - токарь, слеварев - плотник.

Program lol (input, output); var a, n, b, i, p,s,g m: integer; c: real; begin n: =random(10000); writeln (n); a: =n; b: =0; c: =0; p: =1; g: =1; while a < > 0 do begin a: =a div 10; b: =b+1; end; while b < > 0 do begin p: =1; for m: =1 to b do p: =p*10; s: =(n mod p) div (p div 10); c: =c+s; g: =g*s; b: =b-1; end; writeln (c); writeln (g); end. program lol (input, output); var a, b, i, z: integer; begin b: =0; a: =3; z: =0; while a > 2 do begin read (a); z: =0; for i: =2 to a do begin if a mod i = 0 then begin z: =z+1; if (a=i) and (z=1) then b: =b+1; end; end; end; writeln (b); end.

Var a, b: integer; var c: string; begin writeln('введите 1 число.'); readln(a); writeln('введите 2 число.'); readln(b); writeln('знак операции.'); readln(c); if c='*' then writeln(a*b); if c='/' then writeln(a/b); if c='-' then writeln(a-b); if c='+' then writeln(a+b); end. 2   var a, b: real; begin writeln('зарабаток пети: '); readln(a); writeln('зарабаток петрова: '); readln(b); if a> b then writeln('петя заработал больше петрова.') else if a=b then writeln('петров и петя заработали одинаково.') else writeln('петров заработал больше пети.'); writeln('среднее: ', (a+b)/2); end.