вот вроде бы так. var a,b,c:integer; begin writeln('Введите количество минут'); readln(a); writeln('введите количество уроков'); readln(b); c:=a*b-a; case b of 1..7:writeln('количество мин на сколько урок сократится',' ',c); else writeln('введите количество уроков от 1 до 7'); end; end.
Требуется подсчитать, на сколько раньше будет заканчиваться k-й урок, если все перемены сократить на 5 минут. Входные данные Вводится одно натуральное число k, не превосходящее 7. Выходные данные Вывести одно натуральное число — время в минутах.
Поищи на форуме, недавно писал код к этому заданию Нужна помощь? Сюда: vkontakte.ru/berestovskiy
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ СРОЧНО НАДО....программа вводит информацию о 10 студентах. фамилию день месяц и год рождения, год поступления в институт, оценки двух последних сессий.распечатать оценки в последнею сессию студентов, фамилии которых начинаются с буквы В и Г
2. СОЗДАТЬ МОДУЛЬ, ВЫПОЛНЯЮЩИЙ ОПЕРАЦИИ С ОБЫКНОВЕННЫМИ ДРОБЯМИ: СЛОЖЕНИЕ, УМНОЖЕНИЕ, ВЫЧИТАНИЕ, ДЕЛЕНИЕ, НОД ДВУХ ЧИСЕЛ, СОКРАЩЕНИЕ И СРАВНЕНИЕ ДРОБЕЙ. НАПИСАТЬ ПРОГРАММУ ПОЗВОЛЯЮЩУЮ НАЙТИ ЧАСТНОЕ ТРЕХ ОБЫКНОВЕННЫХ РОБЕЙ. РЕЗУЛЬТАТ ПРЕДСТАВИТЬ В ВИДЕ НЕ СОКРАТИМОЙ ДРОБИ г.у
