Версия для печати темы

Автор: -RamZes- 19.12.2006 19:46

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

Автор: Michael_Rybak 19.12.2006 19:58

Первая:

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

Автор: Гость 19.12.2006 20:09

Цитата(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.

Автор: Michael_Rybak 19.12.2006 21:08

Типа такого:

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.