Меню сайта
Для студента
SEO & SMO
Категории раздела
| Delphi [2] |
| Assembler [5] |
| Курсовые проекты [4] |
| Разное [1] |
| Pascal [16] |
| Невероятно, но факт [1] |
| Заказать курсовую [1] |
| SEO [1] |
| С/C++ [10] |
| Дипломные работы [1] |
| Бизнес-цитатник [2] |
Опросник
Поддержать проект
Благодарность выразило,чел: 7
Статистика
Полная статистика
Онлайн всего: 6
Гостей: 6
Пользователей: 0
| Главная » Статьи » Pascal |
Проверить, можно ли из четырех данных отрезков составить параллелограмм.
| Program zad14; Var a,b,c,d:real ; Begin writeln (‘Введите длину первого отрезка’); readln (a); writeln (‘Введите длину второго отрезка’); readln (b); writeln (‘Введите длину третьего отрезка’); readln (с); writeln (‘Введите длину четвёртого отрезка’); readln (d); if (a=b) and (c=d) or (a=d) and (b=c) or (a=c) and (b=d) then Writeln (‘Можно составить’) else writeln (‘Нельзя’); end. | |
| Просмотров: 3194 | Теги: | Рейтинг: 5.0/1 |
| Всего комментариев: 0 | |
