kristi-a-90
?>

1.)отсортировать числа в listbox по кратности, сначала кратные 3, потом кратные 2, затем кратные 5 и после все остальные 2.)вписать слова из edit в listbox заменяя пробелы нижним подчеркиванием( _ )

Информатика

Ответы

lebedev815

(я так понял масив(матрица) "состоящая из 5 строк и 10 столбцов заполненная случайными числами в диапазоне от 0 до 29" вводитса з клавиатуры) (я на Паскале на ошибки не проверял)

program dl9_aridrettnir;

var a:array [1..10,1..5] of inteher;

sum:array [1..10] of integer;

i,q,j:integer; 

begin

writeln ('Vvedit masiv ot 0 do 29');

for i:=1 to 10 do

begin

for q:=1 to 5 do begin

readln (a[i,q]);

end; end;

for i:=1 to 10 do

begin sum[i]:=0;

for q:=1 to 5 do begin

for j:=1 to 10 do begin 

sum[i]:=a[q,j]+sum[i];

end; end;end;

readln

end. 

 

boykovandrew6663
//PascalABC.Net 3.0, сборка 1064
var
  s,w:string;
begin
  Write('Введите предложение: '); Readln(s);
  Write('Введите искомое слово: '); Readln(w);
  s:=' '+s+' ';
  if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение')
  else Writeln('Слово не входит в предложение')
end.

Тестовые решения:
Введите предложение: А роза упала на лапу Азора
Введите искомое слово: роза
Слово входит в предложение

Введите предложение: Вчера смотрели старую кинопанораму
Введите искомое слово: кино
Слово не входит в предложение

Введите предложение: Интересное было кино или так себе?
Введите искомое слово: кино
Слово входит в предложение

Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о  контексте (подстроке)

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

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

1.)отсортировать числа в listbox по кратности, сначала кратные 3, потом кратные 2, затем кратные 5 и после все остальные 2.)вписать слова из edit в listbox заменяя пробелы нижним подчеркиванием( _ )
Ваше имя (никнейм)*
Email*
Комментарий*

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

Akolomaeva4
Sergei
ruslanchikagadzhanov
Shitikov-M.A.1307
oshemkov579
KonovalovKonstantinovna1306
zerckaln
Гаврилаш
ГусенковФролова1121
zmlavra
Yurevna419
владимировнаКлютко
fudan
maksteks
denisovatat7