Помогите пожалуйста, никак разобраться не могу:( 1)составить программу вычисления n=p*k+n , где p,k,n-любые числа 2) вычислить след.выражение y=k/x,где x-целое число, k-целое число не равное нулю

1

Ответы и объяснения

2013-02-26T15:37:57+00:00

 

 Видимо всё-таки 1) x=p*k+n  где p,k,n-любые числа

 

1)

 

 Program prSum;

Uses Crt;

var res,p,k,n:real;

begin

     clrscr; 

    write('Введите p: ');

 

    readln(p);

write('Введите k: ');

    readln(k);

write('Введите n: ');

    readln(n);

rez:=(p*k)+n; 

writeln('Результат: ', rez); 

end. 

 

 

 

 2) Program Delenie;

Uses Crt;

var y:real;

      x,k:integer; 

begin

     clrscr; 

    write('Введите k: ');

    readln(k);

write('Введите x: ');

  readln(x);

if (x=0) then x:=1; {на ноль делить нельзя !} 

 

  if (k=0) then k:=1; {так как к не должен быть равен нулю}  

y:=k/x ; 

writeln('Результат: ', y); 

end.