Question

Задача по информатике. Надо писать коды в pascalABC. NET

Answer 1

/////// #1

var a,b,R:integer;

var a1,b1:real;

begin

writeln('введите 1 число');

readln(a);

writeln('введите 1 число');

readln(b);

if (a mod 5 = 0) then a1:=a*5 else a1:=a/5;

if (b mod 5 = 0) then b1:=b*5 else b1:=b/5;

writeln('1 число = ',a1);

writeln('2 число = ',b1);

end.

///////#2

var x,y, R:real;

begin

writeln('введите x');

readln(x);

if (x<=0) then y:=x+1.5

else y:=x*3/5-1.2;

writeln(y);

end.

Answer 2

##

// 1

// Условие неясно. Рассматривать каждое число как самостоятельное или речь о паре чисел?

// Кроме того, число может быть либо кратно пяти, либо не кратно. О каких это

// "остальных случаях" речь?

// Решение для случая, если числа самостоятельные

var (a, b) := ReadInteger2;

if Abs(a).Divs(5) then a *= 5 else a := a div 5;

if Abs(b).Divs(5) then b *= 5 else b := b div 5;

Println(a, b);

// 2

var x := ReadReal;

var y := x <= 0 ? x + 1.5 : x * 3 / 5 - 1.2;

Print(y)