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

Задание №1 Укажи верные параметры для блока ожидания



Режим «Сравнение», меньше 90

Режим «Изменение», меньше 90

Режим «Изменение», больше 90

Режим «Сравнение», равно 90

Назад

Проверить


Задание №1 Укажи верные параметры для блока ожиданияРежим «Сравнение», меньше 90Режим «Изменение»,

Показать ответ
Ответ:
alinaabpamenko1996
alinaabpamenko1996
16.03.2020 17:38

#include <iostream>     // подключение заголовочного файла для возможности cin, cout

using namespace std;    // чтобы каждый раз не писать std перед cin, cout

int main()              // главная процедура

{

 setlocale(LC_ALL, "Russian");   // для вывода текста русского языка

 int k, l;                       // объявление целых переменных

 cout << "\nВведите k: ";        // вывод сообщения

 cin >> k;                       // ввод с клавиатуры

 cout << "\nВведите l: ";        // вывод сообщения

 cin >> l;                       // ввод с клавиатуры

 if (k != l) {                   // если k не равно l

   if (k > l)                    // находим большее число и меняем меньшее на большее

     l = k;

   else

     k = l;

 }

 else {                          // иначе k равно l

   k = 0;                        // присваиваем нулевые значения

   l = 0;

 }

 cout << "\n\nk = " << k;        // вывод новых значений

 cout << "\nl = " << l << "\n";

}

Объяснение: в комментариях к программе

0,0(0 оценок)
Ответ:
Kirilloo673
Kirilloo673
24.09.2022 09:17
PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018Внимание! Если программа не работает, обновите версию!

procedure Ввод(a: array of string);

begin

 for var i := 0 to a.High do

   a[i] := ReadlnString;

end;


procedure Вывод(a: array of string);

begin

 a.PrintLines

end;


function Сумма(a: array of string): integer;

begin

 Result := a.Select(t -> t.ToInteger).Sum;

end;


begin

 var n := ReadlnInteger('Укажите общее количество строк:');

 var a := new string[n];

 Ввод(a);

 Вывод(a);

 Println('Сумма равна', Сумма(a))

end.

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