Задача 1:
var X,Y,tmp: double;
begin
writeln('Введите x');
readln(X);
writeln('Введите y');
readln(Y);
if (X<Y) then begin
tmp:=X;
X:=(X+Y)/2;
Y:=tmp*Y*2;
end
else begin
tmp:=Y;
Y:=(X+Y)/2;
X:=tmp*X*2;
end;
writeln('X=',X);
writeln('Y=',Y);
end.
Задача 6
var a,b,c,cnt: integer;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
cnt:=0;
if (a<0) then cnt:=cnt+1;
if (b<0) then cnt:=cnt+1;
if (c<0) then cnt:=cnt+1;
writeln('Кол-во отрицательных чисел: ',cnt);
end.
(см. объяснение)
Объяснение:
Задание №17:
//Привычный тебе код:
var k,l,n,m: integer;
begin
write('Введите число k >> '); readln(k);
write('Введите число l >> '); readln(l);
write('Введите число n >> '); readln(n);
write('Введите число m >> '); readln(m);
if((l mod k = 0) and (n mod k = 0) and (m mod k = 0)) then writeln('Является!')
else writeln('Не является!');
end.
//Альтернативное решение задачи нестандартным методом:
begin
var k: integer := ReadInteger('Введите число k >>');
var l: integer := ReadInteger('Введите число l >>');
var n: integer := ReadInteger('Введите число n >>');
var m: integer := ReadInteger('Введите число m >>');
if((l mod k = 0) and (n mod k = 0) and (m mod k = 0)) then writeln('Является!')
else writeln('Не является!');
end.
Задача №19:
//Привычное тебе решение:
var a,b,c: real;
procedure isBiggest(x,y,z: real);
begin
if((x>y) and (y>z))
then begin
writeln('ответ: ', x, ', ', y, ', ', z);
exit;
end;
end;
begin
write('Введите число a >> '); readln(a);
write('Введите число b >> '); readln(b);
write('Введите число c >> '); readln(c);
isBiggest(a,b,c); isBiggest(a,c,b);
isBiggest(b,a,c); isBiggest(b,c,a);
isBiggest(c,a,b); isBiggest(c,b,a);
end.
//Альтернативное решение задачи.
//Уникальность кода в том, что он работает при любом количестве данных чисел. Все зависит от ReadArrReal(n);
begin
'Введите числа a,b,c через пробел:'.Println;
var x: array of real := ReadArrReal(3);
System.Array.Sort(x);
System.Array.Reverse(x);
x.Println;
end.
Задача №21:
//Привычное для тебя решение:
var x: real;
begin
writeln('Введите число x >>'); readln(x);
if(x<0) then writeln(4)
else if(x>1) then writeln(x+7)
else writeln(x*x+3*x+4);
end.
//Альтернативное решение:
//Используется тип double для большей точности
begin
var x: double := ReadReal('Введите число x >>');
if(x<0) then writeln(4)
else if(x>1) then writeln(x+7)
else writeln(x*x+3*x+4);
end.
