В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

Вводить числа с клавиатуры,конец ввода число 999.найти и выдать на экран произведение отрицательных чисел.организовать повтор через запрос(повторять-y,n-нет)при вводе n-выход из программы

Показать ответ
Ответ:
alexandra67346783
alexandra67346783
17.06.2020 12:58

Program BraTish77;
uses crt;
var
  p,temp: integer;
  yes:char;
begin
  yes:='Y';
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  p:=1;
  temp:=1;
  writeln('Вводите числа (для окончания ввода введите 999) ');
  while (yes = 'Y') or (yes = 'y') do
    begin
      p:=1;
      temp:=1;
      repeat
        write('Число:'); readln(temp);
          if temp <0 then p:=p*temp;
      until temp=999;
      writeln('Произведение отрицательных чисел равно ',p);   
      write('Повторить? (Y/N) '); readln(yes);
    end;
  writeln('Выход из программы');   
end.

0,0(0 оценок)
Ответ:
55555555Vgggg
55555555Vgggg
17.06.2020 12:58

 

на языке C++:

 

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

 

 

using namespace std;

 

int main () {

int result = 1;

int c;

string answer = "";

 

while (1) {

cout << "Введите число";

cin >> c; 

if (c == 999)

 if (result == 1)

{cout << "Не введены отрицательные числа"<< endl; return 0;}

else {cout << "результат: " << result << endl; return 0;}

else if (c<0)result *= c;

cout << "продолжить? <YES> | <NO> ";

сin.getline(answer, sizeof(string));

 

 if (strcmp(answer, "YES")==0) continue;

else return 1;

}

}

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота