/*Дано трехзначное число. Найти сумму и произведение его цифр. Вывести число, полученное при прочтении исходного числа справа налево. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число. В нем зачеркнули первую справа цифру и приписали ее слева. Вывести полученное число. Вывести число, полученное при перестановке цифр сотен и десятков исходного числа (например, 123 перейдет в 213). Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123 перейдет в 132).*/ #include <stdio.h> #include <clocale> void sp (int); //функция нахождения суммы и произведения цифр void sprnl (int); //функция прочтения числа справа налево void pervsl (int); //функция 3 :D void pervsp (int); //функция 4 :P void sotdes (int); //функция перестановки сотен и десятков void desedin (int); //функция перестановки десятков и единиц int main() { setlocale (2, ".1251"); int num; do { printf ("Введите число: "); while (!(scanf("%d", &num)) || num < 100 || num > 999) { fflush(stdin); printf ("\nОшибка. Введите заново: "); } sp (num); sprnl (num); pervsl (num); pervsp (num); sotdes (num); desedin (num); printf ("\n\n"); } while (1); return 0; } void sp (int a) { int sum=0, mult=1; while (a) { sum+=a%10; mult*=a%10; a=a/10; } printf ("\n\nСумма цифр равна: %d", sum); printf ("\nПроизведение цифр: %d", mult); } void sprnl (int num) { int a, b, c; a=num%10; num/=10; b=num%10; num/=10; c=num%10; printf ("\nПеревернутое число: %d", 100*a+10*b+c); } void pervsl (int num) { int a, b; a=num%100; b=num/100; printf ("\nЗачеркнули первую слева цифру и приписали ее справа: %d", a*10 + b); } void pervsp (int num) { int a, b; a=num%10; b=num/10; printf ("\nЗачеркнули первую справа цифру и приписали ее слева: %d", a*100 + b); } void sotdes (int num) { int a, b, c; a=num%10; num/=10; b=num%10; num/=10; c=num%10; printf ("\nПерестановка сотен и десятков: %d", b*100 + c*10 + a); } void desedin (int num) { int a, b, c; a=num%10; num/=10; b=num%10; num/=10; c=num%10; printf ("\nПерестановка десятков и единиц: %d", c*100 + a*10 + b);
//PascalABC.NET 3.0 const n = 5; begin var a := ArrRandomReal(n); var b := ArrRandomReal(n); write('Длины первого катета: '); foreach var i in a do write(i : 5 : 2); write(NewLine, 'Длины второго катета: '); foreach var i in b do write(i : 5 : 2); var imax := 0; for var i := 1 to n - 1 do if a[imax] * b[imax] < a[i] * b[i] then imax := i; writeln(NewLine, 'Номер: ', imax + 1); writeln('Катеты: ', a[imax] : 0 : 2, ' ', b[imax] : 0 : 2); writeln('Площадь: ', a[imax] * b[imax] / 2 : 0 : 2); end.
const n = 5;
begin
var a := ArrRandomReal(n);
var b := ArrRandomReal(n);
write('Длины первого катета: ');
foreach var i in a do write(i : 5 : 2);
write(NewLine, 'Длины второго катета: ');
foreach var i in b do write(i : 5 : 2);
var imax := 0; for var i := 1 to n - 1 do
if a[imax] * b[imax] < a[i] * b[i] then
imax := i;
writeln(NewLine, 'Номер: ', imax + 1);
writeln('Катеты: ', a[imax] : 0 : 2, ' ', b[imax] : 0 : 2);
writeln('Площадь: ', a[imax] * b[imax] / 2 : 0 : 2);
end.