Помогите, пожалуйста?

Информатика | 5 - 9 классы

Помогите, пожалуйста.

Даны три отрицательных числа найти предыдущее и следующее значение максимального из этих чисел.

На языке паскаль с изспользованием Goto.

Ответить на вопрос

Для ответа на вопрос необходимо пройти авторизацию или регистрацию.

Ответы (1)

Kristina99991 30 апр. 2020 г., 13:48:48

Uses crt ;

var a, b, c, ch1, ch2 : integer ;

begin

readln (a, b, c)

if (a> ; b) and (a> ; c) then begin ch1 : = a + 1 ; ch2 : = a - 1 ; end ;

if (b> ; c) and (b> ; a) then beginch1 : = b + 1 ; ch2 : = b - 1 ; end ;

if (c> ; b) and (c> ; a) then beginch1 : = c + 1 ; ch2 : = c - 1 ; end ;

writeln ('преведущее = ', ch2, 'последущее = ', ch1) ;

end.

Не пойму что тут делать с goto.

Lapteva240677 21 дек. 2020 г., 02:11:37 | 5 - 9 классы

Дано натуральное число?

Дано натуральное число.

Найти максимальную цифру.

В паскале.

Через while.

1Kriz1 27 нояб. 2020 г., 05:48:53 | 5 - 9 классы

Написать программу на языке Паскаль?

Написать программу на языке Паскаль.

Даны три действительные числа.

Сложить те из них, значения которых не отрицательны.

Nnnn26 15 апр. 2020 г., 00:12:04 | 5 - 9 классы

Даны 3 числа?

Даны 3 числа.

Возведите в квадрат те из них значения которых отрицательны.

(записать программу на языке паскаль).

2221111333 8 янв. 2020 г., 05:32:47 | 5 - 9 классы

Даны три числа, найти максимальное из них и заменить квадратом этого числа?

Даны три числа, найти максимальное из них и заменить квадратом этого числа.

Помогите решить плииз с помощью паскаля.

Kovanov2014 27 окт. 2020 г., 02:37:24 | 10 - 11 классы

Дано трёхзначное число?

Дано трёхзначное число.

Найти среди цифр этого числа, максимальное.

Программа в Паскале.

Apasnii 7 янв. 2020 г., 09:51:57 | 5 - 9 классы

Даны 3 числа M, N, K?

Даны 3 числа M, N, K.

Найти максимальное из этих чисел.

Elvirazhambyl 18 июн. 2020 г., 01:38:27 | 10 - 11 классы

Дано n чисел?

Дано n чисел.

Замените все отрицательные числа их модулями.

Язык программирования Паскаль.

Запишите с помощью массивов.

Islan03 7 дек. 2020 г., 06:48:48 | 10 - 11 классы

Решите, пожалуйста, задачу на языке Паскаль Дана непустая последовательность целых чисел, за которой следует ноль (признак конца последовательности)?

Решите, пожалуйста, задачу на языке Паскаль Дана непустая последовательность целых чисел, за которой следует ноль (признак конца последовательности).

Найти первое отрицательное число этой последовательности.

Заранее благодарю за ответы.

Lerchik1204 3 нояб. 2020 г., 02:25:45 | 10 - 11 классы

Дано натуральное число?

Дано натуральное число.

Найти максимальную цифру.

В паскале.

Через процедуры.

Fimata 30 сент. 2020 г., 17:13:16 | 10 - 11 классы

ПОМОГИТЕ ПОЖАЛУЙСТА?

ПОМОГИТЕ ПОЖАЛУЙСТА!

ОЧЕНЬ НУЖНО!

Дано простое число.

Найти следующее за ним простое число.

Программа Паскаль.

На этой странице сайта, в категории Информатика размещен ответ на вопрос Помогите, пожалуйста?. По уровню сложности вопрос рассчитан на учащихся 5 - 9 классов. Чтобы получить дополнительную информацию по интересующей теме, воспользуйтесь автоматическим поиском в этой же категории, чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы расположена кнопка, с помощью которой можно сформулировать новый вопрос, который наиболее полно отвечает критериям поиска. Удобный интерфейс позволяет обсудить интересующую тему с посетителями в комментариях.

Последние ответы

Алинаааааа1 19 мая 2024 г., 08:26:37

Відповідь : 1. Forward(n) – пройти вперед n кроків(пікселів) ; 2. Backward(n) – пройти назад на n кроків (пікселів) ; 3. Left(angle) – повернутись наліво на angle градусів ; 4. Right(angle) – повернутись направо на angle градусів ; 5. Circle(r) ..

Помогите ( на скрине не правильные ответы)?

Pushkareva112 19 мая 2024 г., 06:38:37

Считаем бит на символ : 14кб / 16384 = 14 * 8 * 1024 / 16384 бит = 7 бит алфавит содержит не более 2 ^ 7 = 128 различных символов...

Информационное сообщение объёмом 14 ГБ содержащих 16384 символа сколько символов содержит алфавит пр

Lelele28 19 мая 2024 г., 04:39:52

Ответ : Слово - ДОПОВІДАЧ Объяснение :..

1. ЗБЕРИ РОЗСИПАНІ БУКВИ І ЗАПИШИ УТВОРЕНІ СЛОВА?

Ляля303 18 мая 2024 г., 22:22:33

Відповідь : Ответ в пояснении. Пояснення : Таблица истинности. А В С &nbsp ; F 0 0 0 &nbsp ; 1 0 0 1 &nbsp ; 1 0 1 &nbsp ; 0 &nbsp ; 1 0 1 &nbsp ; 1 &nbsp ; 1 1 0 0 &nbsp ; 1 1 0 &nbsp ; 1 &nbsp ; 1 1 &nbsp ; 1 0 &nbsp ; 1 1 &nbsp ; 1 &nbsp ; 1 &nb..

Построить таблицу истинности и логическую схему, соответствующей логической функции?

Rizvan2002 18 мая 2024 г., 21:43:14

Ответ : 2) ГБАВ (183. 253. 231. 64) 3) 257. 41. 251. 36 4) ГБАВ (204. 182. 162. 61) 5) 625 Объяснение : Запись IP - адреса представлена в виде четырёх десятичных чисел (от &nbsp ; 0 &nbsp ; до &nbsp ; 255 ), разделённых точками, например, 204. ..

Решите пожалуйста задание по информатике?

Новыйчеловек 18 мая 2024 г., 18:43:34

2. а) истина б) ложь в) истина 3. А) 2 (число 34&gt ; 30, т. К. НЕ то получаем ЛОЖЬ ; т. К. 34 чётное, получаем ЛОЖЬ ; ЛОЖЬ И ЛОЖЬ - это ЛОЖЬ, т. К. НЕ меняем на ИСТИНУ) б) 1 (т. К. д согласная, то получаем ИСТИНУ ; т. К. я гласная, получаем ИС..

Dimchoglo98 18 мая 2024 г., 18:43:31

1)ХЗ 2)Б 3)1)4 &nbsp ; &nbsp ; 2)4 &nbsp ; &nbsp ; 3)2 НО ЭТО НЕ ТОЧНО!..

Адель2005123456789 18 мая 2024 г., 18:38:20

#include &lt ; iostream&gt ; int main() { &nbsp ; &nbsp ; int inp = 0, &nbsp ; &nbsp ; &nbsp ; &nbsp ; sum = 0 ; &nbsp ; &nbsp ; do { &nbsp ; &nbsp ; &nbsp ; std : : cin &gt ; &gt ; inp ; &nbsp ; &nbsp ; &nbsp ; if(inp &gt ; 0 &amp ; &amp ; inp % 2 =..

Напишите в С + +Дан набор ненулевых целых чисел ; признак его завершения — число 0?

АлексейкКоп 18 мая 2024 г., 13:14:34

START | V IF (condition is No) THEN | V + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + | &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; &nbsp ; ..

4. Складіть блок схему фрагмента алгоритму, у якому цикл з лічильником вкладено в повне розгалуження

Димосс 18 мая 2024 г., 12:10:35

Balance = int(input("Счет - ")) percent = int(input("% - ")) years = 0 print(balance) while balance &lt ; 50000 : years + = 1 balance = balance + balance * percent / 100 &nbsp ; print(years)...

Помогите пожалуйста написать программу на pythonтелевизор стоит 50000 руб?