Решите все задания пожалуйста очень срочно

+ 0 -

Vika1997bogdan

04 февр. 2014 г., 16:13:31 (10 лет назад)

1. 
var a,b,c:byte;
begin
write('Введите стороны а,в,с');
read(a,b,c);
if (a=b)or(a=c)or(b=c) then writeln('Треугольник равнобедренный') else writeln('треугольник не равнобедренный');
end.
2.
var x:shortint;
begin
write('Введи х:');
read(x);
if x<=2 then writeln('f(x)=',x*x+4*x+5) else writeln('f(x)=',1/(x*x+4*x+5));
end.
3.
var x:shortint;
begin
write('Введи х:');
read(x);
if x<=0 then writeln('f(x)=0');
if (0<x) and (x<=1) then writeln('f(x)=',x);
if x>=1 then writeln('f(x)=',x*x);
end.
4.
var x:integer;
begin
write('Введи число:');
read(x);
if ((x mod 100)=((x mod 10)div 10))or((x mod 10)div 10)=(x div 100))or((x mod 10)=(x div 10)) then writeln('Есть') else writeln('Нет');
end.
5.
var a,b,c:byte;
begin
writeln('Введите длины отрезков:');
read(a,b,c);
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then writeln('Можно') else writeln('Нельзя');
end.
6.
var x:integer;
begin
write('Введи число:');
read(x);
if x>0 then writeln(x+1) else writeln(x-2);
end.
7.
var a,b,c:integer;
begin
write('Введи A,B и C:');
read(a,b,c);
if abs(a-c)>abs(a-b) then writeln('C на расстоянии ',abs(a-c)) else writeln('B на расстоянии ', abs(a-b));
end.