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

Теща Ипполита Матвеевича видела сны. Она видела их всегда. Ей снились девушки в
кушаках и без них, лошади, обшитые желтым драгунским кантом, дворники, играющие на
арфах, архангелы в сторожевых тулупах...
Но не все сны Клавдия Ивановна считала плохими. У нее было заветное слово. Если в
сне было меньше 4 общих букв с секретным словом, то такой сон не предвещает ничего
дурного.
Напишите программу, которая из введенной строки слов, разделенных запятой и
пробелом выведет только те, в которых меньше 4 общих букв с секретным словом.
Формат ввода
Вводится слово (секретное), затем с новой строки строка слов через запятую и пробел.
Формат вывода
Из введенной строки через символ @, окруженный пробелами, вывести те слова, у
которых меньше 4 общих букв с секретным словом. Одинаковые буквы считать за одну,
регистр не учитывать.

Пример 1

Пример 2
Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt

Ввод Вывод
Claudius
Girls, horses, Dragoons, janitors, archangels

Girls @ horses @ Dragoons @ janitors

Ввод Вывод
Dragoon
sash, gold, mallet, knitting, distressing, precious

sash @ gold @ mallet @ knitting @ precious

👇
Открыть все ответы
Ответ:
pidgenatar
pidgenatar
07.07.2022

Объяснение:

const

 n = 10;

 ar:array[1..n] of integer = (-2, -1, 2, 3, 4, 5, -5, -6, 2, 5);

var

 i:integer;

 is_first_pol:boolean;

 raz_pol:integer;

begin

 

 raz_pol:=0;

 is_first_pol:=true; // флаг того, что найденное положительное число - первое

 

 for i:=1 to n do begin

   

   if (ar[i] > 0) then

     

     if (is_first_pol) then begin

       // если найденное полодительное число - первое, то

       raz_pol:=ar[i]; // в нашу разницу заносим это число

       is_first_pol:=false; // меняем флаг

     end

     else raz_pol:=raz_pol - ar[i]; // иначе вычисляем разницу

 

 end;

 

 writeln(raz_pol);

end.

4,8(29 оценок)
Ответ:

Так пойдёт?

Объяснение:

program Zeldaproj1;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

 cthreads,

 {$ENDIF}{$ENDIF}

 Classes

 { you can add units after this };

const z=100;

type mas=array[1..z] of integer;

var

 u1:mas;

 max1,max2,max3:integer;

procedure ch1(n:integer);

var i:integer;

begin

for i:=1 to n do

u1[i]:=random(100);

for i:=1 to n do

writeln('Элементы массива: ',u1[i]);

max1:=u1[i];max2:=u1[i];max3:=u1[i];

for i:=1 to n do

if u1[i]>max1 then begin

max1:=u1[i];

end;

for i:=1 to n do

if (u1[i]>max2) and (u1[i]<>max1) then begin

max2:=u1[i];

end;

writeln('max1: ',max1,' max2: ',max2,' max3: ',max3);

end;

begin

ch1(5);

readln;

ch1(7);

readln;

ch1(13);

readln;

end.

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