1. Надрукувати привітання з днем народження за до функції: Happy birthday to you!
Happy birthday to you!
Happy birthday,dear Oksana
Happy birthday to you!
2. Дано координати трьох точок. Визначити площу трикутника,утвореного цими точками. Скористайтеся формулою Герога. (Тут тоже как-то функции использовать надо).
!
var f:text;
i,x,sm,n:integer;
pr:longint;
begin
randomize;
clrscr;
pr:=1;
assign(f,'f.txt'); rewrite(f);
writeln('Введите число заполнений (например 6, в файле будет шесть натуральных чисел) ?'); readln(n);
for i:=1 to n do
begin
write(i,') ');
readln(x);
writeln(f,x);
end;
close(f);
reset(f);
while not Eof(f) do
begin
read(f,x);
sm:=sm+x;
if x <> 0 then pr:=pr*x;
end;
if n <> 0then
begin
writeln;
writeln('Сумма всех чисел = ',sm);
writeln('Произведение всех чисел = ',pr);
end else writeln('Файл пустой.');
readkey;
close(f);end.