Перевод Программы Из Pascal На C

  • Автор темы Автор темы FaRReLL
  • Дата начала Дата начала
F

FaRReLL

Код:
program vlad;
uses crt;
var a,b,y: real;
begin
clrscr;
write('введите a ');
readln(a);
write('введите b ');
readln(b);
if a<b then
y:=((a*5)-8)/b else
if a>b then
y:=2+(b/a) else
y:=-2;
writeln('y= ',y:5:2);
readln;
end.
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab