• Перевод кода паскаль в c++
    2)var i, sum : integer;
    n : real;
    begin
    sum := 0;
    for i := 1 to 15 do
    begin
    readln(n);
    if n = trunc(n) then sum := sum + 1;
    end;
    writeln(sum);
    end.
    2
    Var
    a1,b2,c,d:integer;
    begin
    write('Введите числа через пробел: ');
    read(a1);
    for d:=2 to 10 do begin
    read(b2);
    if b2>a1 then inc(c);
    a1:=b2;
    end;
    if c=9 then writeln('Да') else writeln('Нет');
    end.

Ответы 2

  • оу дико благодарен
    • Автор:

      mylaqmab
    • 5 лет назад
    • 0
  • 1)int sum = 0;float n = 0.f;for (int i = 0; i < 15; ++i) {cin >> n;if (n == (int)n) {sum += 1;}}cout << sum << endl;2)int a1, b2, c;cin >> a1;for (int d = 2; d < 10; ++d) {if (b2 > a1) {c += 1;}a1 = b2;}if (c == 9) {cout << "Yes" << endl;} else {cout << "No" << endl;}_________________________________Ну, как-то так и не забывайте подключить библиотеки и int main()
    • Автор:

      babyfbji
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years