IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Pleaze!Решите хоть што нибудь
сообщение
Сообщение #1


Гость






Pleaze!!!Решите хоть што нибудь очень надо!!!!! буду очень благодарен!!!
1.Дано трехзначное число(произвольное). Найти произведение цифр этого числа.
2.Известны отметки n-студентов в сессию (3 экзамена), подсчитать сколько отличников(While).
3.На соревнованиях по прыжкам в длину и в высоту получено 2 массива результатов. Определить три лучших и три худших результата (Заполнение RND).
4.Написать программу, формирующую массив (RND) и определяющую в нем строку с максимальной суммой элементов, а в ней минимальный по величине элемент.
5.Известны оценки каждого студента из группы по двум экзаменам. Определить среднюю оценку группы за все экзамены. Определить кол-во студентов, получивших двойки.

 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 3)
сообщение
Сообщение #2


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


Первая:

var i: integer;
begin
Readln(i);
Writeln(i mod 10 * (i div 10 mod 10) * (i div 100));
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата(Michael_Rybak @ 19.12.2006 15:58) *

Первая:

var i: integer;
begin
Readln(i);
Writeln(i mod 10 * (i div 10 mod 10) * (i div 100));
end.



Огромное спасибо!!!!! give_rose.gif Реши еще что нибудь если не очень трудно, плиз
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


Типа такого:

var a, b, c, ans: integer;
begin
ans := 0;
while true do begin
Writeln('Введите 3 оценки или 0 0 0 для окончания ввода');
Readln(a, b, c);
if a = 0 then
break;
if (a = 5) and (b = 5) and (c = 5) then
ans := ans + 1;
end;
Writeln('Количество отличников равно ', ans);
end.


Хотя бы с сортировкой сам разберись по форуму.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 16:47
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name