Програма algo
-
Тем кто умеет писать помогите что тут не так? ебана
вотProgram lvl;
Var r,l:real;i,n:integer;
Begin
write('ââåä³òü ðàä³óñ 1 êîëà r=');
read(r);
r:=10;
for i:=1 to n do
begin
l:=-23.14n;
Writeln:(:'äîâæèíà,'i,'êîëà l=');
r:=i+2.5;
and;
end. -
писать умею, но не такие закоряки)))
ап -
условие задачи скинь
-
да я уже другую сделал закрою пожалуй :):