jordan15
10.07.2022 01:09

Всвязи с ремонтом в квартире в городе кубитляндия, кубит кубитович решил пойти в магазин, чтобы выбрать шторы для своей комнаты. шторы в кубитляндии имеют вид прямоугольника размера 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 - цвет сектора.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
dhristenko8
04.04.2022 09:09
Const n=20;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(90)+10;
 write(a[i],'  ');
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i] mod 2 = 0 then k:=k+1;
writeln('В массиве ',k,' четных чисел');
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
 if i mod 2 <> 0 then write(a[i],'  ');
end.

Пример:
Исходный массив:
55  40  42  16  52  12  46  58  75  72  39  51  54  64  83  20  77  37  52  23  
В массиве 12 четных чисел
Элементы с нечетными номерами:
55  42  52  46  75  39  54  83  77  52  
0,0(0 оценок)
Ответ:
Ирина1895031
18.05.2022 03:05
{ s(трапеции) = ((a+b)/2)*h; }
uses crt;
var
a, b, h: Integer; (Real)
s: Real;
begin
WriteLn('Введите а: ',a);ReadLn(a);
WriteLn('Введите b: ',b);ReadLn(b);
WriteLn('Введите h: ',h);ReadLn(h);
s:= ((a+b)/2)*h;
WriteLn('S = ', s);
ReadLn;
end.
Если же а и б должны быть обязательно меньше h, то:
if (a < h) and (b < h) then
begin
WriteLn('Введите а: ',a);ReadLn(a);
WriteLn('Введите b: ',b);ReadLn(b);
WriteLn('Введите h: ',h);ReadLn(h);
s:= ((a+b)/2)*h;
WriteLn('S = ', s);
ReadLn;
end;
else begin
WriteLn('Основания не меньше h!');
ReadLn;
end;
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота