Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // Задача 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.
Advertisement
