Меню сайта
Главная страница
Программы Windows
Книги Programming
Видео-уроки Photoshop
Видео-уроки Assembler
Видео-уроки PhP MySql
Видео-уроки HTML CSS
Видео-уроки Java
Видео-уроки C++
Видео-уроки Pascal
Обучение Assembler
Обучение Java
Обучение C++
Обучение Pascal
Java-скрипты
Задачи C++
Задачи Pascal
Информатика
Полезые статьи
Главная
›
Каталог файлов
›
Задачи Pascal
›
Линейные программы
›
Задача №1
Задача №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
Меню раздела
Блок
the-programmer.ru