1)Какая переменная x, y имеет значение после выполнения следующей серии операторовx:=2; y:=x*2; y: =5*x; x: =abs(y): write('x=',x,' y=',y); a) x =6 y=-6 b) x=2 y=-2 c) x-4 y= -4 d) x=2 y=-8 очень
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 begin var n:=ReadInteger('Количество элементов='); var b:=ArrRandomReal(n,-10,20); b.Println(', '); var mx:=b.Max; var c:=b.Where(x->x<>mx); c.Println(', ') end.
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.