Регистрация
CNikolas2001
02.08.2021 15:58
Информатика
Есть ответ 👍

Вводятся целые числа, окончание ввода цифра 0. найти сумму отрицательных нечетных чисел. найти произведения положительных чисел кратных 3. предусмотреть, если таких чисел не было- вывести информационное сообщение. паскаль

111
461
Посмотреть ответы 2

Ответы на вопрос:

vika5658
vika5658
4,6(45 оценок)
Var k,sum,summ: integer; begin summ: =1; repeat writeln('введите число'); readln(k); if (k mod 2< > 0) and (k< 0) then sum: =sum+k; if (k> 0) and (k mod 3=0) then summ: =summ*k; until k=0; if (sum=null) and (summ=1) then writeln('нет таких чисел') else begin writeln('сумма: ',sum); writeln('произведение: ',summ); end; end.
VanyaKiba
VanyaKiba
4,7(85 оценок)

#include <iostream>

using namespace std;

signed main(){

int x,y;

cin >> x >> y;

x - y >= 100 ? cout << "Надо" : cout << "Не надо" ;

}

Популярно: Информатика