73+(37-12)*15=73+ 25*15=73+375=448
1)
var a, z, s: integer;
begin
write('<em>Введите число: </em>');
read(z);
a := z;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10
end;
write('<em>Сумма цифр числа</em> ', z, ' = ', s)
end.
Во вложеном файле программа, которая перераспределяет Х и У
//PascalABC.NET 3.2 сборка 1318
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.