Первая
Program n1;
Uses CRT;
Var a,b,c,k: integer;
begin
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a=b)and(b=c) then begin k:=1; writeln('Ravnostoronnij') end else
If (a=b)or(b=c)or(a=c) then begin k:=1; writeln('Ravnobedrennij'); end;
If (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a))
then begin k:=1; writeln('Pryamoygolnij'); end;
If (a>b+c)or(b>a+c)or(c>a+b) then begin k:=1; writeln('treygolnik nelza sostavit'); end;
If k=0 then writeln('Treygolnik Raznostoronnij');
readln
end.
Вторая
Program n1;
Uses CRT;
Var a,b,c: integer;
begin
ClrScr;
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a>0)and(b>0)and(c>0) then writeln('Summa kvadratov=',sqr(a)+sqr(b)+sqr(b));
If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then writeln('Summa =',a+b+c,', Proizvedenie =',a*b*c);
readln
end.
Всё напишу в объяснении.
Объяснение:
1) Program Ex1;
var
n, a, i, sum : integer;
begin
sum := 0; // обнуляем счетчик суммирования
read(n); // вводим кол-во чисел
for i := 0 to n do
begin
read(a); // считываем эти числа
if (a mod 5 = 0) then sum := sum + a; // если число кратно 5, то добавляем его к сумме
end;
writeln(sum); // выводим сумму.
end.
2) Program Ex2;
var
n, a, i, min: integer;
begin
min := 30000;
read(n); // вводим кол-во чисел
for i := 0 to n do
begin
read(a); // считываем эти числа
if ((a mod 10 = 4) and (a < min)) then min := a; // ищем минимум
end;
writeln(min); // выводим минимум
end.
