Var
s,t,a,u0:real;
begin
writeln('Введите время');
readln(t);
writeln('Введите ускорение');
readln(a);
writeln('Введите началную скорость');
readln(u0);
s:=u0*t+((a*t*t)/2);
writeln(s);
<span>end.</span>
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
//PascalABC.NET
//Версия 3.4.2
begin
range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;
end.
Var s1,s2,s3:string;
v1,v2,v3,r1,r2,r3:integer;
begin
write('1 имя : '); readln(s1);
write('вес и рост : '); readln(v1,r1);
write('2 имя : '); readln(s2);
write('вес и рост : '); readln(v2,r2);
write('3 имя : '); readln(s3);
write('вес и рост : '); readln(v3,r3);
writeln(s1,'+',s2,'+',s3,' = ',v1+v2+v3,' кг');
writeln(s1,'+',s2,'+',s3,' = ',r1+r2+r3,' см');end.
Пример:
1 имя : Петя
вес и рост : 55 160
2 имя : Вася
вес и рост : 40 150
3 имя : Коля
вес и рост : 48 155
Петя+Вася+Коля = 143 кг
Петя+Вася+Коля = 465 см
//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.