View - Pasted

Pascal |

250 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

// Задача 1.7 Кучеренко
 
begin
  var A, C: real;
  write('Vvedite A: ');
  readln(A);
  write('Vvedite C: ');
  readln(C);
  
  if abs(A) = abs(C) then
    C := 0.125 * C
  else
    C := 2 * C;
  
  writeln('C = ', C);
end.

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎