Program treug; var a,b,c:integer; label l1,l2; begin l1: writeln ('Укажите стороны треугольника:'); read (a,b,c); if (a<=0) or (b<=0) or (c<=0) then begin writeln ('Проверьте правильность введенных данных'); goto l1; end; if (a=b) and (a=c) and (b=c) then begin writeln ('Треугольник с указанными параметрами - равносторонний'); goto l2; end; if (a=b) or (a=c) or (b=c) then begin writeln ('Треугольник с указанными параметрами - равнобедренный'); goto l2; end; writeln ('Треугольник с указанными параметрами - разносторонний'); l2: end.
Первая компьютерная сеть начала функционировать в США в 20 веке в 1983 году 1983 год - Компьютеров подключенных к сети, к концу года насчитывается более 500 штук 1984 год - В Internet уже насчитывалось более 1000 компьютеров (в основном научные станции). 1986 год - Сеть насчитывает более 2000 компьютеров постоянно находящихся online. 1988 год - Был создан первый сетевой вирус - “червь Морриса”. Число компьютеров в сети достигает 50000. 1989 год - К сети подключились: Австралия, Великобритания, Германия, Израиль, Италия, Мексика, Нидерланды, Новая Зеландия, Пуэрто-Рико и Япония. 1992 - год Официально начинается сообщество Internet.
var a,b,c:integer;
label l1,l2;
begin
l1:
writeln ('Укажите стороны треугольника:'); read (a,b,c);
if (a<=0) or (b<=0) or (c<=0) then begin
writeln ('Проверьте правильность введенных данных'); goto l1;
end;
if (a=b) and (a=c) and (b=c) then begin
writeln ('Треугольник с указанными параметрами - равносторонний'); goto l2; end;
if (a=b) or (a=c) or (b=c) then begin
writeln ('Треугольник с указанными параметрами - равнобедренный'); goto l2;
end;
writeln ('Треугольник с указанными параметрами - разносторонний');
l2:
end.