Перевести код с Pascal

@~~spartanec 0-1~~ · 15.11.2014, 09:49. **Показов** 1194. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Pascal

var a,b,c:real;
begin
   clrscr;
   writeln('Vvedite A=');
   readln(a);
   writeln('Vvedite B=');
   readln(b);
      If a>b then c:=(a-b)/(a+1)
        else if  a<b then  c:=(a-5)/b
          else c:=25;
writeln('c=',c:5:2);
readln;
end.

@CodeR · 15.11.2014, 10:48

C++

#include <stdio.h>
#include <conio.h>
 
int main() {
    float a,b,c;
    printf("Vvedite a: ");
    scanf("%f",&a);
    printf("Vvedite b: ");
    scanf("%f",&b);
    if (a>b) c=(a-b)/(a+1);
            else if (a<b) c=(a-5)/b;
                    else c=25;
    printf("c = %5.2f\n",c);
    getch();
    return 0;
}

	15.11.2014, 10:48

Опции темы

Перевести код с Pascal

Решение