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

Простейшая система проверки орфографии может быть основана на использовании списка известных слов. Если введённое слово не найдено в этом списке, оно помечается как "ошибка".

Попробуем написать подобную систему.

На вход программе первой строкой передаётся количество dd известных нам слов, после чего на dd строках указываются эти слова. Затем передаётся количество ll строк текста для проверки, после чего ll строк текста.

Выведите уникальные "ошибки" в произвольном порядке. Работу производите без учёта регистра.

👇
Ответ:
nasstya05
nasstya05
11.01.2023

Объяснение:

dddsdsdsdsds d

4,5(36 оценок)
Открыть все ответы
Ответ:
alpysovat
alpysovat
11.01.2023
Program p1;
var
  a:array[1..7,1..7] of byte;
  i,j:byte;
begin
  for i:=1 to 7 do
  begin
    for j:=1 to 7 do
    begin
    if i<=4 then
      if (j>=i) and (j<=8-i) then a[i,j]:=1 else a[i,j]:=0
    else
      if (j<=i) and (j>=8-i) then a[i,j]:=1 else a[i,j]:=0;
    Write(a[i,j]:2)
    end;
  Writeln
  end
end.

Результат выполнения программы:
 1 1 1 1 1 1 1
 0 1 1 1 1 1 0
 0 0 1 1 1 0 0
 0 0 0 1 0 0 0
 0 0 1 1 1 0 0
 0 1 1 1 1 1 0
 1 1 1 1 1 1 1

program p2;
var
  a:array[1..6,1..6] of byte;
  i,j:byte;
begin
  for i:=1 to 6 do
  begin
    for j:=1 to 6 do
    begin
    a[i,j]:=i+j-1;
    if a[i,j]>6 then a[i,j]:=a[i,j]-6;
    Write(a[i,j]:2)
    end;
  Writeln
  end
end.

Результат выполнения программы:
 1 2 3 4 5 6
 2 3 4 5 6 1
 3 4 5 6 1 2
 4 5 6 1 2 3
 5 6 1 2 3 4
 6 1 2 3 4 5
4,7(22 оценок)
Ответ:
nastyafifefoks
nastyafifefoks
11.01.2023

//Массив b сделан таким большим из-за возможности, что в массиве a будут все положительные, а разместить надо на чётных. Есть возможность сделать через динамический массив.

const  

 n=40;

var

 a:array [1..n] of integer;

 b:array [0..2*n-1] of integer;

 i,j,sum:integer;

begin

 randomize;

 sum:=0;

 j:=0;

 for i:=1 to n do

   begin

     a[i]:=random(21)-10;

     if a[i]>0 then

       begin

         b[j]:=a[i];

         j:=j+2;

         sum:=sum+sqr(a[i]);

       end;

     write(a[i]:4);

   end;

 writeln;

 writeln;

 for i:=0 to 2*n-1 do

   write(b[i]:4);

 writeln;

 writeln('Sum: ',sum);  

end.

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