Информатика,10 класс,паскаль 1)написать программу.вводятся два двухзначных целых числа.подсчитать и вывести два числа: сумма десятков первого и второго числа и сумма единиц первого и второго числа. 2)вводятся два двухзначных целых числа.подсчитать и вывести два числа: произведение десятков первого числа и единиц второго числа; произведение единиц первого числа и десятков второго. 3)вводятся два двухзначных целых числа.подсчитать и вывести два числа: произведение десятков первого числа и единиц второго числа; сумма единиц первого числа и десятков второго числа.

161

444

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

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

barbarask1

Информатика

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

Первая программа. program d_and_e; var a,b,sum_d,sum_e: integer; begin writeln('введите первое число: '); readln(a); writeln('введите второеое число: '); readln(b); sum_d: =(a div 10) + (b div 10); sum_e: =(a mod 10) + (b mod 10); writeln('сумма десятков чисел: ', sum_d); writeln('сумма единиц чисел: ', sum_e); end. вторая программа. program d_and_e; var a,b,mult_d1_e2,mult_e1_d2: integer; begin writeln('введите первое число: '); readln(a); writeln('введите второе число: '); readln(b); mult_d1_e2: =(a div 10) * (b mod 10); mult_e1_d2: =(a mod 10) * (b div 10); writeln('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2); writeln('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2); end. третья программа. program d_and_e; var a,b,mult_d1_e2,sum_e1_d2: integer; begin writeln('введите первое число: '); readln(a); writeln('введите второе число: '); readln(b); mult_d1_e2: =(a div 10) * (b mod 10); sum_e1_d2: =(a mod 10) + (b div 10); writeln('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2); writeln('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2); end.

Исбанка

Информатика

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

//весьма слабое решение, но после перерыва мне простительно, хех. //pascal abc.net v3.1 сборка 1219 var ar,arodd,arnotodd: array of integer; n,i,j,k1,k2: integer; begin readln(n); setlength(ar,n+1); k1: =1; k2: =1; for i: =1 to n do begin readln(ar[i]); if odd(i) then begin setlength(arodd,k1); arodd[k1-1]: =ar[i]; inc(k1); end else begin setlength(arnotodd,k2); arnotodd[k2-1]: =ar[i]; inc(k2); end; end; sort(arodd); sort(arnotodd); reverse(arnotodd); k1: =0; k2: =0; i: =0; while i< > n do begin inc(i); if odd(i) then begin ar[i]: =arodd[k1]; inc(k1); end else begin ar[i]: =arnotodd[k2]; inc(k2); end; write(ar[i],' '); end; end. пример ввода: 5 1 2 3 4 5 пример вывода: 1 4 3 2 5

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

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

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

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

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

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

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

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

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

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