Type strings = array [1..20] of char; mat = array [1..10] of strings; var x: mat; введите типы переменных в соответствии с описаниями, перечисленными выше. x – x[3] – x[9][18] – x[1,1] –

А)99999 девяносто девять тысяч девятьсот девяносто девять б)999999девятьсот девняосто девять тысяч девятьсот девяносто девять в)99999999 девяносто девять миллионов девятьсот девяносто девять тысяч девятьсот девяносто девять г)99999999999 девяносто девять миллиардов девятьсот девяносто девять миллионов девятьсот девяносто девять тысяч девятьсот девяносто девять

А)99999 девяносто девять тысяч девятьсот девяносто девять б)999999 девятьсот девяносто девять тысяч девятьсот девяносто девять в)99999999 девяносто девять миллионов девятьсот девяносто девять тысяч девятьсот девяносто девять г) 99999999999 девяносто девять миллиардов девятьсот девяносто девять миллионов девятьсот девяносто девять тысяч девятьсот девяносто девять

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.