|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.10.2017, 18:07 | #1 |
Новичок
Джуниор
Регистрация: 12.10.2017
Сообщений: 1
|
Не могу понять почему не работает
program PS;
var a,P,S:real; readln(a); procedure st(a:real); var p,s:real; begin P:=3*a; S:=a*2*sqrt(3)/4; end; begin writeln(P); write(P); end. |
12.10.2017, 18:30 | #2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,709
|
А что вы ожидали? Свою процедуру не пробовали вызывать?
|
15.10.2017, 08:10 | #3 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,949
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу понять почему не работает unlink() | Illusiony | PHP | 7 | 06.04.2016 19:38 |
Не могу понять почему не работает функция | SeRhy | JavaScript, Ajax | 0 | 09.02.2012 17:41 |
Не могу понять почему не работает микрофон | Stilet | Компьютерное железо | 8 | 08.10.2010 16:54 |
Почему не работает...хм....понять не могу! | Артур Иваныч | Microsoft Office Excel | 9 | 01.12.2009 17:58 |