Программа с ! составьте программу, которая по введенному вами k-число грибов, печатает фразу: "мы нашли в лесу k грибов" причем согласовывает окончание слова «гриб» с k.!

var

  count: integer;

begin

  write('введите количество грибов '); readln(count);

  write('мы нашли в лесу ', count);

  case count div 10 of

      1: writeln(' грибов');

      else

          case count mod 10 of

              0, 5..9: writeln(' грибов');

              1: writeln(' гриб');

              2..4: writeln(' гриба');

          end;

  end;

end.

var k: integer; beginwriteln('input number of mushrooms: '); readln(k); if k=1 then writeln('mi nashli ',k,' grib')

elseif (k=2) or (k=3) or (k=4) then writeln('mi nashli ',k,' griba')

elsewriteln('mi nashli ',k,' gribov'); readln; end.

Var a,b,c: integer; x,y,z: string; begin writeln('введите стороны треугольника'); readln(a,b,c); x: ='равнобедренный'; y: ='равносторонний'; z: ='разносторонний'; begin if (c=b) and (a< > c) then writeln('треугольник',' ',x); if (a=c) and (a< > b) then writeln('треугольник',' ',x); if (a=b) and (a< > c) then writeln('треугольник',' ',x); if (a=b) and (a=c) and (b=c) then writeln('треугольник',' ',y); if (a< > b) and (a< > c) and (b< > c) then writeln('треугольник',' ',z); end; readln end.

Program name; //имя программы uses crt; //запуск программы в консольном режиме необязательно var      a : integer;   b : integer;   i : integer;   c : integer; begin //начало программы  write('введите 1 число: ');   readln(a); //ввод значения первого числа  c : = b-a-1;   write('введите 2 число: ');   readln(b); //ввод значения второго числа  writeln(a, ' ' , b); //вывод двух чисел   writeln(a, ' ' ,a*a,' ' , a*a*a); // вывод 1 числа, квадрата, куба  for i : = 1 to b-a-1 do    begin    a : = a + 1;     writeln(a, ' ',a*a, ' ', a*a*a); // вывод всех чисел от a до b  end;               writeln(b, ' ' ,b*b,' ' , b*b*b); // вывод 2 числа, квадрата, куба  readkey;     end. //конец программы