Мой сайт
Главная | Регистрация | Вход
Понедельник, 19.11.2018, 07:04
Меню сайта
Теги
Наш опрос
Свободное программное обеспечение...
Всего ответов: 76
Главная » 2010 » Октябрь » 18 » Задача 8.
19:09
Задача 8.
К финалу конкурса лучшего по профессии "Специалист электронного офиса" были допущены трое: Иванов, Петров, Сидоров. Соревнования проходили в три тура. Иванов в первом туре набрал m1 баллов, во втором - n1, в третьем - p1. Петров - соответственно m2, n2, p2. Сидоров - m3, n3, p3. Составьте программу, определяющую, сколько баллов набрал победитель.
Просмотров: 978 | Добавил: yaro-vik | Рейтинг: 5.0/1
Всего комментариев: 1
Римма
BEGIN
writeln('Введите количество очков Иванова: ');
write('I тур - '); readln(m1);
write('II тур - '); readln(n1);
write('III тур - '); readln(p1);
writeln('Введите количество очков Петрова: ');
write('I тур - '); readln(m2);
write('II тур - '); readln(n2);
write('III тур - '); readln(p2);
writeln('Введите количество очков Сидорова: ');
write('I тур - '); readln(m3);
write('II тур - '); readln(n3);
write('III тур - '); readln(p3);
summa1:=m1+n1+p1;
summa2:=m2+n2+p2;
summa3:=m3+n3+p3;
max:=summa1;
if max<summa2 then max:=summa2;
if max<summa3 then max:=summa3;
writeln('Победитель набрал - ',max,' очков!');
END.
31.10.2010 | Воскресенье | 21:45

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск
Календарь
«  Октябрь 2010  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031
Архив записей
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Рекомендуем
Copyright MyCorp © 2018