Как перевести с паскаля в С++??

@Гыка4ь · Регистрация: 05.01.2010

вот собствена прога в паскале, а мне надо както её в сишку перевести..... если комуто не сложно подскажите плз

Pascal

program L_2_13;
uses crt;
var
a,b,c,d:real; k:longint;
begin
clrscr;
writeln('Vvedit k='); readln(k);
a:=k div 3;
b:=k div 3;
c:=k div 3;
d:=k mod 3;
if d=1 then a:=a+1;
if d=2 then b:=b+1;
writeln(a:1:0); writeln(b:1:0); writeln(c:1:0);
readln;
end.

Добавлено через 5 минут
А условия собсна вот......
Помоч Декану факультету организовать с абитуриентов что прошли конкурс, три студенческие групы...групы должны быть примерно равны если число неделица ровно на 3 групы то остачу роскидывать по групам

@insideone · 18.02.2010, 23:29

C++

#define PROGRAM L_2_13 //program L_2_13;
#include <iostream>
using namespace std;//uses crt;
//var
double a = 0, b = 0, c = 0, d = 0; long int k = 0; //a,b,c,d:real; k:longint;
int main()//begin
    //clrscr;
    cout << "Vvedit k="; cin >> k;//writeln('Vvedit k='); readln(k);
    a = k / 3;//a:=k div 3;
    b = k / 3;//b:=k div 3;
    c = k / 3;//c:=k div 3;
    d = k / 3;//d:=k mod 3;
    if ( d == 1 ) a++;//if d=1 then a:=a+1;
    if ( d == 2 ) b++;//if d=2 then b:=b+1;
    cout << a << " " << b << " " << c;//writeln(a:1:0); writeln(b:1:0); writeln(c:1:0);
    cin >> k;//readln;
}//end.

Чем мог тем помог

@Гыка4ь · 18.02.2010, 23:42 **[ТС]**

Спасибки =))
Ты спас меня от злого препода =))

@insideone · 18.02.2010, 23:44

Не по теме:

Все преподы в душе добрые, просто они очень стисняются показать доброту :D

@Гыка4ь 1 / 1 / 0 Регистрация: 05.01.2010 Сообщений: 8
	18.02.2010, 23:42 [ТС]	3
	Спасибки =)) Ты спас меня от злого препода =)) 0

@insideone
	18.02.2010, 23:44 Как перевести с паскаля в С++?? #4
	Не по теме: Все преподы в душе добрые, просто они очень стисняются показать доброту :D 0

Опции темы