Праграмма с цервыс паком (на олбанском) («Телесистемы»: Конференция «Микроконтроллеры и их применение»)

Разработка, производство и продажа радиоэлектронной аппаратуры

| Карта сайта | Пишите нам | В избранное

Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс.
e-mail:jobsmp@pochta.ru

Телесистемы | Электроника | Конференция «Микроконтроллеры и их применение»

Праграмма с цервыс паком (на олбанском)

Отправлено Petrovich 22 августа 2007 г. 13:23
В ответ на: Прыграмма на Пыцкале (с ффставками на олбанском) вас усроит? отправлено <font color=gray>Petrovich</font> 22 августа 2007 г. 13:19

program aaa111;
const rud=0.0175; {Ом*мм2/м}
var r,l,s:real;
begin
writeln('Цапратиффление шо нуна Ом'); Readln(r);
writeln('Плосчадь сычения провода шо езть мм^2'); Readln(s);
l:=(R*s/rud)*1000;
if l> 1000 then writeln('До х-я')
else writeln('Нуна ',l:8:4,' мм провода');
readln;
end.

Составить ответ | Вернуться на конференцию

Праграмма с цервыс паком (на олбанском)

Ответы