Вход

Регистрация
Главная
 
Мой сайт 
Меню сайта
Наш опрос
Оцените мой сайт
Всего ответов: 2
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » 2015 » Январь » 14 » TurboPascal 11
20:21
TurboPascal 11

uses crt;

var a,b,c,s:real;

begin

clrscr;

textcolor(14);

writeln('a=');

readln(a);

writeln('b=');

readln(b);

writeln('c=');

readln(c);

s:=(a*b+b*c+c*a)*2;

writeln('s:=(a*b+b*c+c*a)2=',s:2:2);

readln;

end.

Просмотров: 55 | Добавил: Алина | Рейтинг: 0.0/0
Всего комментариев: 0
avatar
Вход на сайт
Поиск
Календарь
«  Январь 2015  »
Пн Вт Ср Чт Пт Сб Вс
   1234
567891011
12131415161718
19202122232425
262728293031
Архив записей
Друзья сайта
  • Создать сайт
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Copyright MyCorp © 2026
    Конструктор сайтовuCoz