М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
graulity
graulity
16.08.2020 07:51 •  Информатика

Написать програмный код на С . Дана непустая последовательность целых чисел, оканчивающаяся отрицательным числом. Верно ли, что все элементы последовательности равны между собой?

👇
Ответ:
Lunit
Lunit
16.08.2020

Код:

#include <iostream>

using namespace std;

int main() {

 // Считываем первый элемент последовательности

 int x;

 cin >> x;

 // Пока введенное число не отрицательное

 while (x >= 0) {

   // Считываем следующее число

   int y;

   cin >> y;

   // Если следующее число отрицательное, завершаем цикл

   if (y < 0) break;

   // Если числа x и y не равны, выводим "false" и завершаем программу

   if (x != y) {

     cout << "false" << endl;

     return 0;

   }

   // Переходим к следующей итерации цикла

   x = y;

 }

 // Если цикл завершился без выхода из программы, выводим "true"

 cout << "true" << endl;

 return 0;

}

4,7(100 оценок)
Открыть все ответы
Ответ:
asemk85
asemk85
16.08.2020
Процессор - Intel Core i5-3450 Ivy Bridge (3100MHz, LGA1155, L3 6144Kb) - 6000
Материнская плата - ASUS P8Z77-V LX - 3600
Оперативная память - Kingston KVR16N11/8 - 3000
Видеокарта - GIGABYTE GeForce GTX 650 1110Mhz PCI-E 3.0 1024Mb 5000Mhz 128 bit 2xDVI HDMI HDCP - 3600
HDD - Seagate ST1000DM003 - 2100
Блок питания - Thermaltake TR2 RX 750W - 3500
Корпус - Zalman Z12 Plus Black - 2500
Сканер - Epson Perfection V37 - 4500
Монитор - Packard Bell Viseo 223DXbd - 3900
Дешевая клавиатура - 400
Дешевая мышь - 400

Итого 33500 руб. - 1500 на мороженное.
4,7(91 оценок)
Ответ:
Катя15710000000
Катя15710000000
16.08.2020
VAR
i, j: Integer;
a: Array [1..10] of Array [1..10] of Integer;
BEGIN
for i := 1 to 10 do
for j := 1 to 10 do a[i][j] := j*j;

for i := 1 to 10 do begin
for j := 1 to 10 do Write(a[i][j],' '); Writeln; end;
END.

VAR
i, j: Integer;
a: Array [0..4] of Array [1..4] of Integer;
BEGIN
for i := 1 to 4 do
for j := 1 to 4 do begin
a[i][j] := Random(7)+12;
a[0][j] := a[0][j] + a[i][j];
end;

for i := 1 to 4 do begin
for j := 1 to 4 do Write(a[i][j],' '); Writeln; end;

Writeln;
for i := 1 to 4 do Write(a[0][i],' ');
END.

VAR
i, j: Integer;
a: Array [0..7] of Array [1..7] of Integer;
BEGIN
for i := 1 to 7 do
for j := 1 to 7 do begin
a[i][j] := Random(7)+12;
if (a[i][j] < 14) then Inc(a[0][j]);
end;

for i := 1 to 7 do begin
for j := 1 to 7 do Write(a[i][j],' '); Writeln; end;

Writeln;
for i := 1 to 7 do Write(a[0][i],' ');
END.

VAR
i, j: Integer;
a: Array [0..3] of Array [1..3] of Integer;
BEGIN
for i := 1 to 3 do
for j := 1 to 3 do Read(a[i][j]);

for i := 1 to 3 do begin
a[0][i] := a[1][i]; a[1][i] := a[2][i];
a[2][i] := a[0][i]; end;

for i := 1 to 3 do begin
for j := 1 to 3 do Write(a[i][j],' '); Writeln; end;
END.

VAR
i, j, m: Integer;
a: Array [1..5] of Array [1..5] of Integer;
BEGIN
for i := 1 to 5 do
for j := 1 to 5 do begin
a[i][j] := Random(5)+1;
end;

for i := 1 to 5 do begin
for j := 1 to 5 do Write(a[i][j],' '); Writeln; end;

m := 6;
for i := 1 to 5 do
for j := 1 to 5 do
if (i > j)and(m > a[i][j]) then m := a[i][j];

Writeln(a[i][j]);
END.
4,4(25 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ