М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
NoRoblem
NoRoblem
12.10.2021 21:25 •  Информатика

7. квадраты из спичек у васи в кармане лежат 10080 спичек. он складывает из них клетчатый прямоугольник так, чтобы были использованы все спички и сторона каждой клеточки состояла ровно из одной спички. а затем считает, сколько квадратов, которое можно “увидеть” в этом прямоугольнике. например, из 45 спичек можно сложить клетчатый прямоугольник размером 3 на 6 (см. рисунок), в котором можно насчитать 32 квадрата (18 маленьких квадратов со стороной 1, 10 квадратов со стороной 2 и 4 квадрата со стороной 3). какое наибольшее количество квадратов может быть в прямоугольнике, который сложит вася?

👇
Ответ:
Так это же математика или логика там...
4,4(48 оценок)
Открыть все ответы
Ответ:
Davidggg
Davidggg
12.10.2021
Var used: Set of Char;
    s1, s2: string;
    i: integer;
    done: boolean;
    c: char;

function IsLetter(c: char): boolean;
begin
  IsLetter := ((c >= 'a') and (c <= 'z')) or ((c >= 'A') and (c <= 'Z'));
end;

function UpperCase(c: char): char;
begin
  if (c >= 'a') and (c <= 'z') then
    UpperCase := Chr(Ord(c) - Ord('a') + Ord('A'))
  else
    UpperCase := c;
end;

begin
used := [];

readln(s1);
readln(s2);

for i := 1 to length(s1) do
  if (IsLetter(s1[i])) then
    include(used, UpperCase(s1[i]));

for i := 1 to length(s2) do
  if (IsLetter(s2[i])) then
    include(used, UpperCase(s2[i]));

done := False;
for c := 'A' to 'Z' do
  if not (c in used) then
  begin
    done := True;
    write(c);
  end;

if not done then
  write(0);

writeln;
end.
4,6(55 оценок)
Ответ:

В Мексике появится первая в мире деревня, созданная с

Создание полноценного жилья с технологии 3D-печать уже давно ни у кого не вызывает удивления. Поскольку такой строительства более! Также установлен мировой рекорд по самому большому уличному 3D-рисунку в

Лондонский дуэт 3D-стрит-арт художников 3D Joe and Max установил 17 ноября рекорд Гиннесса за самый большой уличный 3D-рисунок. Для выставки Парижской недели моды, арт студия для всемирных брендов решила сделать 3D фон чтобы покупателям было интересно смотреть на сам товар, и это очень классно что мир так продвигается!

4,5(20 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ