Program Anutka1506;
uses crt;
var
x,y,s,p: real;
begin
writeln('Введите числа:');
write('X='); readln(x);
write('Y='); readln(y);
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
s:=(x+y)/2;
p:=2*x*y;
if x<y then
begin
x:=s;
y:=p;
end
else
begin
x:=p;
y:=s;
end;
writeln('X=',x,' Y=',y);
end.
Program zadacha;vara,b:real;beginwriteln('vvedite dva chisla');read(a,b);if a>b then writeln(a,'>',b);if a<b then writeln(a,'<',b);if a=b then writeln(a,'=',b);end.
а) uses crt;
var c,d:integer;
s:real;
begin
write('Введите число с: ');
readln(c);
write('Введите число d: ');
readln(d);
s:=(power(c,3)+power(d,3))/2;
writeln('Полусумма кубов равна ',s:5:3);
end.
б) uses crt;
var a,x1,x2,x3,x4,s:integer;
begin
write('Введите четырёхзначное число: ');
readln(a);
x1:=a div 1000;
x2:= a-1000*x1;
x2:=x2 div 100;
x3:=a-1000*x1-100*x2;
x3:=x3 div 10;
x4:=a-1000*x1-100*x2-10*x3;
s:=x1*x2*x3*x4;
writeln('Произведение всех цифр в числе ',a,' равно ',s);
end.
Жизь без интернета - для нас не жизнь. Без него мы чувствуем себя ограниченными от общества. Мы не находим нужный материал.Не можем заказать что то для себя и своей семьи. Вывод: мы можем пользоваться интернетом , но не долгое время!
<span />
Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>