Ответ:
int a = Int32.Parse(Console.ReadLine());
int b = Int32.Parse(Console.ReadLine());
int c = Int32.Parse(Console.ReadLine());
if(a+b<c && a+c<b && b + c < a)
{
Console.WriteLine("Треугольник существует");
if (a == b && a == c && b == c) Console.WriteLine("Треугольник равносторонний");
else if (a != b && a != c && b != c) Console.WriteLine("Треугольки разносторонний");
else { Console.WriteLine("Треуголькие равнобедренный"); }
}
else
{
Console.WriteLine("Треугольника не существует");
}
Const n=4; m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(1000);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do
if (a[i,j] mod 7=0)and(a[i,j]>99)and(a[i,j]<1000) then a[i,j]:=a[i,j]-10;
writeln('New:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Пример<span>889 188 17 186 772
394 121 406 679 936
20 147 868 691 450
525 73 575 232 416
New:
879 188 17 186 772
394 121 396 669 936
20 137 858 691 450
515 73 575 232 416
</span>
Program p1;
uses crt;
var s1,s2,s3:string;
a:integer;
begin
read(s1);
a:= Pos(' ',s1);
s2:=Copy(s1,1,a-1);
Delete(s1,1,a);
s3:=s1+' ' +s2;
write(s3);
end.
Проверь так ?
var a, b, h: integer;
begin
read(a, b, h);
write((a+b)/2*h);
end.