Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » нужна помощ (очень)
нужна помощ
1 Составить программу нахождения произведения двух наименьших из трех различных чисел.
2 Написать программу, которая по введенному номеру дня недели (целому числу от 1 до 7) выдает количество уроков в классе в этот день
1 | Автор: kas | 2012-03-19, 07:52   |  Репутация: [ + 0 ]
1.
var
a,b,c:integer;
begin
read(a,b,c);
if (a>b)and(a>c) then writeln(b*c);
if (b>a)and(b>c) then writeln(a*c);
if (c>a)and(c>b) then writeln(a*b);
end.

2.
var
a:integer;
begin
read(a);
case a of
1:writeln('6 urokov');
2:writeln('5 urokov');
3:writeln('7 urokov');
4:writeln('4 uroka');
5:writeln('5 urokov');
6:writeln('0 urokov');
7:writeln('0 urokov');
end;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-03-19, 08:18   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » нужна помощ (очень)
Страница 1 из 11
Поиск: