Ответы и объяснения

2013-03-14T13:20:35+04:00

program zadacha1;
uses crt;
var a,b,c,p:integer;
begin
write('Введите длины сторон a,b,c: ');
readln(a,b,c);
p:=a+b+c;
writeln('Периметр треугольника равен ',p);
end.

program zadacha2;
uses crt;
var a,b,c,s:integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
if a>b then begin s:=a+b; writeln('Сумма чисел равна ',s); end else begin s:=a*b; writeln('Произведение чисел равно ',s); end;
end.

program zadacha3;
uses crt;
var a:integer;
begin
write('Введите номер урока: ');
readln(a);
case a of
1: writeln('8:30');
2:writeln('9:25');
3:writeln('10:20');
4:writeln('11:30');
5:writeln('12:25');
6:writeln('13:25');
7:writeln('14:15');
end;
end.