Войти
Регистрация
Спроси ai-bota
tanakovalizka1
17.10.2021 14:44
Перевод кода паскаль в c++ 1 var i,n: integer; p: real; begin writeln('введите n'); readln(n); p: =1; if odd(n) then begin for i: =1 to n do if odd(i) then p: =p*i end else for i: =1 to n do if not odd(i) then p: =p*i; writeln(p); end.
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
sob000
27.05.2022 20:00
Водномерном массиве, заполненном случайными числами посчитать сумму и количество четных чисел.массив размером 20...
исмира4
25.05.2023 04:38
решить моей подруге информатику решить моей подруге информатику! >...
Siiii
30.09.2022 18:54
Имя когда героя американского мультсериала....
389648
08.03.2020 16:37
Дан рекурсивный алгоритм: procedure f(n: integer); begin writeln( * ); if n 0 then begin writeln( * ); f(n-2); f(n div 2); f(n div 2); end end; сколько символов звездочка будет напечатано...
studentka87
08.03.2020 16:37
1) перевидите число 350 в сс с основанием 13 2)перевидите число 111011011110110110101 в сс с основанием 4...
елена1229
03.09.2020 12:19
Математика, физика және информатикада есептер шешу кезеңдерінсалыстырыңдар. Ұқсастық және айырмашылықтарын анықтаңдар....
terentevvadim33
05.12.2022 15:45
Составте программу нахождения остатка и целой части произвильного целого числа...
Настюнькаz
29.05.2023 04:20
Какой может быть вопрос к слову флешка на кросфорже...
sahka03
05.08.2020 13:33
ответить на вопросы 1.укажите слово, в котором количество букв и звуков совпадает. 1. съемка. 2.южная. 3. шинель. 4.язык. 2.в каком слове произносится согласный [с]? 1. косьба.2....
ainurpandaa
05.08.2020 13:33
Найти предел функции: lim 3x^2-2x^2+5/4+x-2x^2 x направлен к бесконечности...
Ответ:
messi114
06.10.2020 23:09
#include <iostream>using namespace std;
int main() { int i, n; unsigned p; cout << " N" << endl; cin >> n; p = 1; if (n&1) { p = p * i; } else { for (i=0; i<n; i++) { if (! i&1) { p = p*i; } } } cout << p << endl; return 0;}
Вроде как-то так. За правильность работу не ручаюсь, т.к. не знаю как работает программа на паскале. Надеюсь верно...
0,0
(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота