Меню сайта
Для студента
SEO & SMO
Категории раздела
Delphi [2] |
Assembler [5] |
Курсовые проекты [4] |
Разное [1] |
Pascal [16] |
Невероятно, но факт [1] |
Заказать курсовую [1] |
SEO [1] |
С/C++ [10] |
Дипломные работы [1] |
Бизнес-цитатник [2] |
Опросник
Поддержать проект
Благодарность выразило,чел: 7
Главная » Статьи » Pascal |
Определить, какая из двух фигур (круг или квадрат) имеет большую площадь. Известно, что сторона квадрата равна а, радиус равен r
Program
zad9;
Var x,r,a,s1,s2:real ; Begin writeln('введите сторону квадрата'); readln (a); writeln('введите радиус круга'); readln (r); s1:=a*a; s2:=pi*(r*r); if (s1>s2) then writeln ('Площадь квадрата =',s1) else writeln ('Площадь круга =',s2); end. | |
Просмотров: 2689
| Теги: |
Всего комментариев: 0 | |