Составьте программу, которая по введенному вами k - числу грибов печатает фразу , причем согласовывает окончание слова с числом k. количество грибов может быть любым целым числом: 1, 3, 34, 127 и т. д. окончание фразы определяется значением последней цифры.

Var g,i: integer; begin  read(g); if (g=1) or ((g> 20) and (g mod 10=1)) then begin writeln('мы нашли в лесу ',g,' гриб'); i: =1; end; if ((g mod 10> 1) and (g mod 10< 5)) or ((g> 21) and (g mod 10> 1) and (g mod 10< 5)) then begin writeln('мы нашли в лесу ',g,' гриба'); i: =1; end; if i=0 then writeln('мы нашли в лесу ',g,' грибов'); end.

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

2)

var a,b,c: integer;

begin

  read(a,b,c);

  writeln('3 - ',100-a-b-c);

end.

 

3) много писанины. вообщем длина стороны считается d: =sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))

площадь находится по формуле герона

 

4)var a: integer;

begin

  read(a);

  writeln('plowad grani = ',a*a);

  writeln('plowad polnoj pov= ',a*a*6);

  writeln('objem= ',a*a*a);

end.