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

Michael_Rybak
Первая:

var i: integer;
begin
Readln(i);
Writeln(i mod 10 * (i div 10 mod 10) * (i div 100));
end.
Гость
Цитата(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 Реши еще что нибудь если не очень трудно, плиз
Michael_Rybak
Типа такого:

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.


Хотя бы с сортировкой сам разберись по форуму.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.