program raf105;
var
a,b:array[1..5] of integer;
c:array[1..10] of integer;
i:integer;
begin
writeln('Заполните первый массив:');
for i:=1 to 5 do
readln(a[i]);
writeln('Заполните второй массив:');
for i:=1 to 5 do
readln(b[i]);
i:=0;
write('Третий массив: ');
while i < 10 do
begin
i:= i+2;
c[i-1]:= a[i div 2];
c[i]:= b[i div 2];
write(c[i-1],' ',c[i],' ');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
<u>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
<em>№1</em>
function f(a,x:real):=(sin(a*x)+x*x*x)/(exp(x)+abs(tan(x)));
begin
var a,x:real;
Write('Введите a,x: '); Read(a,x);
Writeln('y=',f(a,x))
end.
<u>Пример</u>
Введите a,x: -3.5 1.13
y=0.415984691762092
<em>№2</em>
function f(x:real):=sin(x)*cos(x);
function G(x:real):=cos(x)-sin(x);
begin
var a:=ReadReal('a=');
var b:=ReadReal('b=');
Writeln(f(a)*g(a)*f(a+b)*sqr(g(a-b)))
end.
<u>Пример</u>
a= -4.2
b= 1
-0.00583852364109992
<em>№3</em>
function m(a,b,c:real):=sqrt(2*(b*b+c*c)-a*a)/2;
begin
var a,b,c:real;
Writeln('Введите a b c: '); Read(a,b,c);
Writeln('ma=',m(a,b,c));
Writeln('mb=',m(b,a,c));
Writeln('mc=',m(c,a,b));
end.
<u>Пример</u>
Введите a b c:
4.15 6.2 7.18
ma=6.37891644403656
mb=4.97769524981191
mc=3.86563707556724
Ответ:
Столб
1) Столба
Тупмвб
Тупмвб
2) Бупмвт
Вфрнгу
Объяснение:Да, как-то так))
16,13(10 с/с)->(16 c/c) =10.2147АЕ147АЕ1000
Program Dafnochka;
uses crt;
var
r,sum: real;
k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
k:=0;
r:=1;
writeln('Введите ненулевое число');
writeln('(или введите 0 для конца последовательности) ');
while r<>0 do
begin
write("Ввод:") ;
readln (r);
sum:=sum+r;
k:=k+1;
end;
writeln();
writeln('Всего введено ',k-1,' чисел');
writeln('Среднее значение равно ',sum/(k-1));
end.
Проверено - работает на Паскаль АВС
