1.)отсортировать числа в listbox по кратности, сначала кратные 3, потом кратные 2, затем кратные 5 и после все остальные 2.)вписать слова из edit в listbox заменяя пробелы нижним подчеркиванием( _ )
(я так понял масив(матрица) "состоящая из 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
04.03.2023
//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 заменяя пробелы нижним подчеркиванием( _ )
(я так понял масив(матрица) "состоящая из 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.