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

Сс на тему какой будет кампютар через 50 лет 50 60 слов на русском

Показать ответ
Ответ:
sumochkaaaaa
sumochkaaaaa
30.01.2021 06:40
Вся программа написана не очень корректно но все таки
начну с мэйн
это основная праграма для запуска всего остального
инт ай и джи это целые числа которые ты используешь дальше
принт ф это выходит сообщение где тебе пишется введите число целое
скан ф вывод сообщения с тем что ты написал
фор две строки это выполнения операции с цифрами она прибавляет по 1 лимиты там описаны от 7 до 10 и от 2 до 11
принт ф опять вывод того что получилось далее переходит на следуюшию строку и снова переход 
гетч это оставление окна до тех пор пока ты не нажмешь кнопку
0,0(0 оценок)
Ответ:
Рыжик151
Рыжик151
30.01.2021 06:40

PascalABC.NET

begin

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

 // пока не будет введен 0 (который не войдет в нее).

 // Затем последовательность преобразуется в массив (ToArray)

 // нужного размера, который сохраняется с именем a

 var a := ReadSeqIntegerWhile(p -> p <> 0).ToArray;

 // Заведем счетчики для количества положительных kp и

 // отрицательных kn элементов и обнулим их

 var (kp, kn) := (0, 0);

 // Просматриваем в цикле массив. На каждом шаге p будет обозначать

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

 foreach var p in a do

   if p > 0 then       // если элемент положительный

     kp += 1               // добавим 1 в счетчик положительных

   else if p < 0 then  // если элемент отрицательный

     kn += 1;              // добавим 1 в счетчик отрицательных

 // Осталось вывести результаты

 Writeln('Положительных чисел ', kp, ', отрицательных ', kn)

end.

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