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.