Скачиваний:
9
Добавлен:
20.05.2014
Размер:
315 б
Скачать
(* comment1 *)
{ comment2 }
const
a:real:=10,5;
b,c,de:integer6;
var
c1,c2:real;
c3:integer;
a :array[1..100] of integer;
function fun(a:real)integer;
function funky (a,b:real;cd,e:integer):real;
begin
read (a);
readln (a,bc,d);
for i:=0 to 10 do
a:=bc++d/a*4;
for b:=10 downto 1 do;
end.
Соседние файлы в папке kurs01