Скачиваний:
8
Добавлен:
20.05.2014
Размер:
314 б
Скачать
(* comment1 *)
{ comment2 }
const
a:real=10,5;
b,c,de:integer=6;
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