Меню сайта

Задача №2
Дана сторона квадрата a. Найти его площадь S=a2.
Program kvadrat2-
Uses crt-
Var a,S :integer-
Begin
Clrscr-
Writeln(‘введите cторону квадрата а‘)- readln(a)-
S:=sqr(a)-
Writeln(‘Площадь равна:’,S)-
readln-
End.
Категория: Линейные программы | Дата: 30.11.12

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