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
|
|
|
|
