tol1974656
?>

Всвязи с ремонтом в квартире в городе кубитляндия, кубит кубитович решил пойти в магазин, чтобы выбрать шторы для своей комнаты. шторы в кубитляндии имеют вид прямоугольника размера n∗m, разделенного на сектора размера 1∗1, где каждый сектор имеет свой цвет. цвета обозначаются строчными латинскими буквами. как известно кубит кубитович предпочитает те шторы, где используется только два цвета, а также используется узор "полоска", если узор на шторе не корректный, или штора имеет не любимую раскраску, то он считает что эта штора ему не подходит, и он сразу переходит к просмотру следующей. корректным узором "полоска" является набор прямоугольников, каждый из которых имеет сплошной цвет и заполняет полностью одну или несколько линий по вертикали или по горизонтали. подробнее о узоре "полоска" в примечании. найти кол-во штор, которые понравятся кубиту кубитовичу. известно что он посетит магазин с t шторами. входные данные первая строка содержит целое число t (1≤t≤10000) – обозначающее количество штор. далее следует t описаний штор, где в первой строке описания находится два целых числа n и m (1≤n, m≤50) - размер шторы, затем следует n строк, по m столбцов содержащие строчные латинские буквы pi, j ('a' ≤ pi, j ≤ 'z'), где pi, j - цвет сектора.

Информатика

Ответы

Ka2ffka141
Решение с массивом var a: array[1..1000] of longint; i, n, k1, k2: longint; begin k1 : = 0; k2 : = 0; read(n); for i : = 1 to n do begin read(a[i]); if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then k1 : = k1 + 1; if (a[i] mod 3 = 0) and (a[i] mod 2 = 1) then k2 : = k2 + 1; end; writeln(k1, ' ', k2); end. решение без массива var x, i, n, k1, k2: longint; begin k1 : = 0; k2 : = 0; read(n); for i : = 1 to n do begin read(x); if (x mod 2 = 0) and (x mod 5 = 0) then k1 : = k1 + 1; if (x mod 3 = 0) and (x mod 2 = 1) then k2 : = k2 + 1; end; writeln(k1, ' ', k2); end.
Михаил736

var a,b: char;

  i: integer;

  const stop='.';

begin

writeln('введите строку, содержащую латинские буквы');

  read(a);

  if (a=stop) then writeln('задан пустой текст')

  else

  begin

    while a< > stop do

      begin

        read(b);

        if (a> ='a')and(a< ='z') then a: =chr(ord(a)-32);

        write(a);

        a: =b;

      end;

  end;

readln;

readln;

end.

эта программа заменит все заглавные латинские буквы на прописные.(лучше указывайте тип , которое вы хотите)

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Всвязи с ремонтом в квартире в городе кубитляндия, кубит кубитович решил пойти в магазин, чтобы выбрать шторы для своей комнаты. шторы в кубитляндии имеют вид прямоугольника размера n∗m, разделенного на сектора размера 1∗1, где каждый сектор имеет свой цвет. цвета обозначаются строчными латинскими буквами. как известно кубит кубитович предпочитает те шторы, где используется только два цвета, а также используется узор "полоска", если узор на шторе не корректный, или штора имеет не любимую раскраску, то он считает что эта штора ему не подходит, и он сразу переходит к просмотру следующей. корректным узором "полоска" является набор прямоугольников, каждый из которых имеет сплошной цвет и заполняет полностью одну или несколько линий по вертикали или по горизонтали. подробнее о узоре "полоска" в примечании. найти кол-во штор, которые понравятся кубиту кубитовичу. известно что он посетит магазин с t шторами. входные данные первая строка содержит целое число t (1≤t≤10000) – обозначающее количество штор. далее следует t описаний штор, где в первой строке описания находится два целых числа n и m (1≤n, m≤50) - размер шторы, затем следует n строк, по m столбцов содержащие строчные латинские буквы pi, j ('a' ≤ pi, j ≤ 'z'), где pi, j - цвет сектора.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

kategar
nekarpova
kassel1b
rusvicktor
cvetprint
ermisyareg436
veronikagrabovskaya
cmenick29
elena
Александр Елена1290
Latsukirina
utkinslava
Алексеевна_Валентиновна
Мусаев Игоревич371
selena77