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

142

302

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

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

kvas1985

Информатика

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

Первая программа. 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.