Вопрос № 111677: Доброго времени суток, уважаемые эксперты! Помогите пожалуйста с решением задачек, надеюсь на ваш сильный интеллект:-)
1. Из множества целых чисел 1..100 выделить множество чисел на которые делится без остатка число 444. Вывести это множеств...Вопрос № 111699: Определить номер столбца массива,сумма элементов которого максимальна
1й столб 2й столб 3й столб
1 2 3
1 2 0
2 2 1
Max=6, Номер столбца 2, Что единственное не умею делать это написать программу..Помогите плиз
...Вопрос № 111700: Посчитать кол-во столбцов массива Mas,в которых нет отрицательных элементов....
Вопрос № 111.677
Доброго времени суток, уважаемые эксперты! Помогите пожалуйста с решением задачек, надеюсь на ваш сильный интеллект:-)
1. Из множества целых чисел 1..100 выделить множество чисел на которые делится без остатка число 444. Вывести это множество на экран.
2. Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке: все звонкие согласные буквы, которые входят более чем в одно слово; все гласные буквы, которые не входят более чем в одно слово.
Отправлен: 30.11.2007, 07:12
Вопрос задал: Mamontenok (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Gh0stik
Здравствуйте, Mamontenok!
Решение задачи №1. const k=444; var n:set of 1..100; {описание множества}
i:integer; begin
n:=[]; {изначально множество пустое} for i:=1 to 100 do if k mod i=0 then {проверяем элемент на соответствие условию} begin
include(n,i); {добавляем элемент в множество} write(i:3); {выводим элемент на экран} end;
readln; end.
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 30.11.2007, 09:16 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо! Но, к моему сожалению, я пока не знаю оператора inculde... Надеюсь, скоро узнаю! Ещё раз спс!!!
Отвечает: sergesus !!! Здравствуйте, Mamontenok! Вот ответ на первый вопрос var i:integer; begin for i := 1 to 100 do {берем по очереди i от 1 до 100} if (444 mod i)=0 then writeln(i);{делаем проверку делится ли 444 на i, если да выводим i} readln; end.
Приложение:
Ответ отправил: sergesus (статус: 2-ой класс)
Ответ отправлен: 30.11.2007, 18:11
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Mamontenok!
В приложении 2-я задача.
Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Специалист)
Ответ отправлен: 01.12.2007, 16:19 Оценка за ответ: 5 Комментарий оценки: Спасибо большое! Очень большой упор делаю именно на математику (т. к. учусь на матфаке), на информатику практически времени не остается! Вы, эксперты, прямо палка-выручалка для студентов!!! Спасибо!
Вопрос № 111.699
Определить номер столбца массива,сумма элементов которого максимальна
1й столб 2й столб 3й столб
1 2 3
1 2 0
2 2 1
Max=6, Номер столбца 2, Что единственное не умею делать это написать программу..Помогите плиз
Отправлен: 30.11.2007, 11:17
Вопрос задал: Master86 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: lyalya
Здравствуйте, Master86!
вот листинг. Данные вводятся с клавиатуры
program d;
type
mas=array [1..3,1..3] of integer;
var a:mas; i,j,k,s,max:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
writeln('a[',i,',',j,']= ');
readln(a[i,j]);
end;
end;
max:=0; k:=0;
for j:=1 to 3 do
begin
s:=0;
for i:=1 to 3 do
s:=s+a[i,j];
if s > max then begin max:=s; k:=j; end;
end;
writeln('max summa=',max,'v',k,'stolbce');
readln;
end.
Ответ отправила: lyalya (статус: 2-ой класс)
Ответ отправлен: 30.11.2007, 14:27
Вопрос № 111.700
Посчитать кол-во столбцов массива Mas,в которых нет отрицательных элементов.
Отправлен: 30.11.2007, 11:19
Вопрос задал: Master86 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: lyalya
Здравствуйте, Master86!
program d;
type
mas=array [1..10,1..10] of integer;
var a:mas; i,j,k,s,n,m:integer;
begin
writeln('vvedite razmer matricuy');
readln(n,m); {количество столбцов и строк}
for i:=1 to n do
begin
for j:=1 to m do
begin
writeln('a[',i,',',j,']= ');
readln(a[i,j]);
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);
writeln;
end;
s:=0;
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
if a[i,j] >= 0 then k:=k+1;
if k=n then s:=s+1;
end;
writeln('s=',s);
readln;
end.
Ответ отправила: lyalya (статус: 2-ой класс)
Ответ отправлен: 30.11.2007, 14:47