Составьте программу, которая для числа k (от 1 до 99), введенного вами, напечатает фразу «мне k лет», где k – введенное число, при этом в нужных случаях слово «лет» заменяя на «год» или «года». например, при k=70 «мне 70 лет», при k=15 «мне 15 лет», при k=23 «мне 23 года», при k=31 «мне 31 год». что значит until и case в этой

Var k: integer; begin       readln(k);       case k of           10..20: writeln('мне ', k ,' лет');       else           case k mod 10 of                 1   : writeln('мне ', k ,' год');                 2..4: writeln('мне ', k ,' года');           else writeln('мне ', k ,' лет');           end;       end; end.//#include < iostream> using namespace std; int main(){    int k;     cin > > k;     if (k > = 10 & & k < = 20)        cout < < "мне " < < k < < " лет" < < endl;     else        switch (k % 10)        {            case 1: cout < < "мне " < < k < < " год" < < endl; break;             case 2: cout < < "мне " < < k < < " года" < < endl; break;             case 3: cout < < "мне " < < k < < " года" < < endl; break;             case 4: cout < < "мне " < < k < < " года" < < endl; break;             default: cout < < "мне " < < k < < " лет" < < endl; break;         }}//case - оператор выбора

Программа на pascal   var   age : integer; begin repeat write('введите ваш возраст: '); readln(age); until age in [1..99]; if age in [10..20] then writeln('мне ', age, ' лет') else     case age mod 10 of     1: writeln('мне ', age, ' год');     2, 3, 4 : writeln('мне ', age, ' года');     0, 5..9 : writeln('мне ', age, ' лет'); end; end.программа на  c++#include < iostream>   using namespace std;   int main()  {  setlocale(lc_all,"rus");   int k;   cin> > k;   if(k > 0 & & k< 100)  cout< < "мне "< < k < < " лет";   system("pause > > void");   }

австрия - вена

бельгия - брюссель

болгария - софия

венгрия - будапешт

испания - мадрид

 

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.