№1
var a, b, c, i:integer;
y, x :real;
begin
x:=-2;
while x<>2 do
begin
writeln (x, ' ', (exp(x) + exp(-x))/2-x*x*x*x);
x:=x+0.25;
end;
<span>end.
Первый номер, чтобы не было нарушения.
№2</span>
var a, b, c, i:integer;
y, x :real;
begin
x:=0;
while x<>4 do
begin
writeln (x, ' ', sqrt(x*x+5*x+3));
x:=x+0.25;
end;
end.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
//PascalABC.NET v3.3 1633
begin
var days: array [1..7] of string:=('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');
var n:=ReadLnInteger('Введите номер дня: ');
writeln(n+' день — ' + days[n mod 7]);
end.
Var i,sum:integer;
cp:real;
mass:array[1..6] of integer;
begin
for i:=1 to 6 do
begin
write('mass[',i,']=');
read(mass[i]);
sum:=sum+mass[i];
end;
writeln;
for i:=1 to 6 do
writeln('mass[',i,']=',mass[i]);
writeln;
writeln('Среднее арифметическое элементов массива равно ',sum/6:0:4);
end.<span>
</span>
Program n1;
var a: real;
begin
write('введите скорость в км/ч: ');
readln(a);
write('эта скорость в м/с: ',a*5/18);
end.