Написать программу в паскале определяющую является ли четырехугольник квадратом

156

458

Посмотреть ответы 2

Ответы на вопрос:

svet0chka

Информатика

4,4(51 оценок)

Var a,b,c,d: integer; begin writeln('введите стороны четырехугольника: '); readln(a,b,c,d); if (a=b) and (b=c) and (c=a) then writeln('четырехугольник является квадратом') else writeln('четырехугольник не квадрат'); readln; end.

puremoorning

Информатика

4,4(62 оценок)

// pascalabc.net 3.2, сборка 1439 от 09.05.2017 var n: integer; function tri(n: integer): longint; begin case n of 0,1: tri : = 0; 2: tri : = 1 else tri : = tri(n - 3) + tri(n - 2)+tri(n-1); end; end; var a: array of integer; i: longint; begin readln(n); setlength(a, n); for i : = 0 to n-1 do write(tri(i) + ' '); for i : = 0 to n-1 do a[i] : = tri(i); writeln(''); for i : = 0 to n-1 do if a[i] mod 3 = 0 then write(a[i] + ' '); end.