Дан массив из n натуральных четырехзначных чисел. вывести на экран только те, у которых сумма первых двух цифр равна сумме последних. напишите на языке pascal

140

148

Посмотреть ответы 2

Ответы на вопрос:

az12345687

Информатика

4,8(51 оценок)

Const nn=100; var a: array[1..nn] of integer; i,n,s1,s2: integer; begin write('введите размер массива n: '); read(n); randomize; writeln('исходный массив'); for i: =1 to n do begin a[i]: =random(3000)+1000; write(a[i]: 5) end; writeln; writeln('результаты'); for i: =1 to n do begin s1: =(a[i] div 1000)+(a[i] div 100) mod 10; s2: =(a[i] div 10) mod 10+a[i] mod 10; if s1=s2 then write(a[i]: 5) end end. тестовое решение: введите размер массива n: 50 исходный массив 3407 3373 2752 3121 2683 3082 3252 1364 3890 1595 3004 3206 3663 2523 1972 2003 2344 3901 3739 2898 1639 2839 2498 1200 1613 1498 1262 3370 1548 1287 1972 3348 1278 3116 1505 3235 1062 1740 2491 1023 3955 3704 1265 2567 1287 1255 2602 3924 2561 2912 результаты 3407 3663 2561

Oks099

Информатика

4,8(93 оценок)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var s: =readlnstring('введите строку: '); var n: =s.matches('[a-za-zа-яа-яёё]').count; var m: =s.length-n; if m> n then writeln('в строке букв меньше иных символов') else if m< n then writeln('в строке букв больше иных символов') else writeln('в строке поровну букв и иных символов') end. примеры введите строку: это 12+32/16t/7+3.1415 тест в строке букв меньше иных символов введите строку: и это 14+7 равно 21 тоже тест в строке букв больше иных символов

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.