|
|
|
|
ЛАБОРАТОРНАЯ №1 ВАРИАНТ 8
| Задача:
Дан четырехугольник. Проверить, является ли он параллелограммом. С клавиатурывводятся длины сторон четырехугольника А, В, С, D). Результат выводится на экран в удобном для восприятия виде.
|
| Решение: |
| > >Скачать< < |
program task8;
var a,b,c,d:real;
begin
a := 0;
b := 0;
c := 0;
d := 0;
writeln('VVEDITE DLINI STORON CHETIREHUGOLNIKA');
readln(a,b,c,d);
if (a=c) and (b=d) then writeln('ETO PARALLELOGRAMM')
else writeln('ETO NE PARALLELOGRAMM');
readln;
end.
|
|
| |
