type animal=record ani:string; name:string; yearOfBrith:integer; weight:real; food:real; country:string; end;
Const n=10; Var zoo:array[1..n] of animal; i,counter:integer; coun:string; begin for i:=1 to n do begin writeln('Данные о животном #',i); readln(zoo[i].ani); readln(zoo[i].name); readln(zoo[i].yearOfBrith); readln(zoo[i].weight); readln(zoo[i].food); readln(zoo[i].country); end; write('Введите страну:'); readln(coun); for i:=1 to n do if zoo[i].country=coun then inc(counter); writeln(counter); writeln('Таблица норм пищи:'); for i:=1 to n do writeln(zoo[i].name,':',zoo[i].weight*zoo[i].food); writeln('Список животных, возраст которых больше 10 '); for i:=1 to n do if DateTime.Now.Year-zoo[i].yearOfBrith>10 then writeln(zoo[i].name); end.
{1} var n: integer; begin write ('Введите заработанную сумму: '); readln (n); write ('Вы получите: ', (n*0.77)*0.61) end.
{2} var a: array of double; n, i: byte; sum: longint; begin write ('Введите кол-во дробных чисел: '); readln (n); setLength (a, n); for i:=0 to n-1 do begin write ('Введите ', i+1, ' число: '); readln (a[i]); end; for i:=0 to n-1 do begin writeln ('Целая часть ', i+1, ' числа: ', trunc(a[i])); inc (sum, trunc(a[i])); end; write ('Сумма целых частей: ', sum); end.
{3} var a, b, c, p: double; begin write ('Введите стороны треугольника: '); readln (a, b, c); if (a>=(b+c)) or (b>=(a+c)) or (c>=(b+a)) or (a<=0) or (b<=0) or (c<=0) then write ('Такой треугольник не существует') else begin p:=(a+b+c)/2; write ('Его S = ', sqrt (p*(p-a)*(p-b)*(p-c)):7:2, ' ед^2' ); end; end.
uses
system;
type
animal=record
ani:string;
name:string;
yearOfBrith:integer;
weight:real;
food:real;
country:string;
end;
Const
n=10;
Var
zoo:array[1..n] of animal;
i,counter:integer;
coun:string;
begin
for i:=1 to n do
begin
writeln('Данные о животном #',i);
readln(zoo[i].ani);
readln(zoo[i].name);
readln(zoo[i].yearOfBrith);
readln(zoo[i].weight);
readln(zoo[i].food);
readln(zoo[i].country);
end;
write('Введите страну:');
readln(coun);
for i:=1 to n do
if zoo[i].country=coun then inc(counter);
writeln(counter);
writeln('Таблица норм пищи:');
for i:=1 to n do
writeln(zoo[i].name,':',zoo[i].weight*zoo[i].food);
writeln('Список животных, возраст которых больше 10 ');
for i:=1 to n do
if DateTime.Now.Year-zoo[i].yearOfBrith>10 then writeln(zoo[i].name);
end.