Question

пожалуйста!!!!!! Составьте программу, которая запрашивает четыре числа с клавиатуры и определяет среди них количество четных чисел. Readln (a, b, c, d); If d mod 2 =0 then K:=K+1;<br /> K:=0;<br /><br /> Составьте программу, которая позволяет определить, является ли треугольник со сторонами a, b, c равносторонним.

Answer 1

var
    i, n, prev, k: integer;

begin
    //1
    k := 0;
    for i := 1 to 4 do
    begin
        read(n);
        if n mod 2 = 0 then k := k + 1;
    end;
    writeln('K = ', k);
    //2
    k := 0;
    for i := 1 to 3 do
    begin
        read(n);
        if i = 1 then begin
            prev := n;
            k := k + 1;
        end
        else if n = prev then k := k + 1;
    end;
    
    if k = 3 then
        writeln('Равносторонний')
    else
        writeln('Не равносторонний');
end.