54

ПОЖАЛУЙСТА! ПОМОГИТЕ! СРОЧНО! Решить задачи на турбопаскале: 1. Дано натуральное…

20 февраля 2023

ПОЖАЛУЙСТА! ПОМОГИТЕ! СРОЧНО! Решить задачи на турбопаскале: 1. Дано натуральное число Найти сумму и произведение первых двух чисел.2. Дано n-значное натуральное число. Правда ли что квадрат произведения цифр числа равняется кубу суммы цифр числа.3. Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления.

категория: информатика

42

Program Kasyanova98_1; uses crt; var n,nt,p: integer; begin writeln ('*Alphaues is thinking… *'); write ('Ok, введите натуральное число N='); readln (n); nt: =n; while nt>=10 do begin p: =nt; nt: =nt div 10; end; writeln ('Cумма первых двух цифр числа ',n,' равна ', (p div 10)+(p mod 10); writeln ('Произведение первых двух цифр числа ',n,' равно ', (p div 10)*(p mod 10); end.Program Kasyanova98_2; uses crt; var n,nt,sum,kw,temp: integer; begin writeln ('*Alphaues is thinking… *'); write ('Ok, введите натуральное число N='); readln (n); nt: =n; sum: =0; kw: =1; while nt>=1 do begin temp: =nt mod 10; sum: =sum+temp; kw: =kw*temp; nt: =nt div 10; end; if kw*kw=sum*sum*sum then writeln ('Квадрат произведения цифр числа ',n,' равняется кубу суммы его цифр') elsewriteln ('Квадрат произведения цифр числа ',n,' НЕ равняется кубу суммы его цифр'); end.Program Kasyanova98_3,1; uses crt; const n=10; var x,y: integer; begin writeln ('*'); writeln ('*ТАБЛИЦА УМНОЖЕНИЯ*'); writeln ('*'); write ('*'); for y: =1 to n do begin write (y: 2); if y

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...