Меню сайта

Задача №1
Дана сторона квадрата a. Найдите его периметр P=4*a.
Program kvadrat-
Uses crt-
Var a,P :integer-
Begin
Clrscr-
Writeln(‘введите cторону квадрата а‘)- readln(a)-
P:=4*a-
Writeln(‘Периметр равен: ‘,P)-
readln-
End.
Категория: Линейные программы | Дата: 04.12.12

Меню раздела
Блок