Составьте программу, которая вводит трехзначное число и выводит число, образованное при перестановке цифр в обратном порядке (например: 123-321 в паскале. ! заранее!
Var a,b: integer; begin readln(a); b: =(a mod 10)*100; b: =b+(a mod mod 10); b: =b+(a div 100); writeln(b); readln; end.
kuhonka2021
27.06.2022
Var a,b,alpha,s: real; begin writeln('вычисление площади треугольника'); writeln('введите (через пробел) длины двух сторон (см) треугольника'); readln(a,b); writeln('введите величину угла (градус) между сторонами треугольника'); readln(alpha); alpha: =degtorad(alpha); writeln('площадь треугольника: ',0.5*a*b*sin(alpha),' кв.см.') end. тестовое решение: вычисление площади треугольника введите (через пробел) длины двух сторон (см) треугольника 25 17 введите величину угла (градус) между сторонами треугольника 30 площадь треугольника: 106.25 кв.см. вычисление площади треугольника введите (через пробел) длины двух сторон (см) треугольника 11 16.3 введите величину угла (градус) между сторонами треугольника 39 площадь треугольника: 56.4185730576179 кв.см.
nebo2020
27.06.2022
Uses crt; var i,n,summa,a: integer; m: array [1..1000] of integer; begin clrscr; writeln('введите размер массива'); readln(n); for i: =1 to n do m[i]: =i; if n< 99 then a: =n else a: =99; for i: =10 to a do begin if (i div 10)+(i mod 10) < 10 then begin summa: =summa+i; end; end; writeln(summa); readkey; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Составьте программу, которая вводит трехзначное число и выводит число, образованное при перестановке цифр в обратном порядке (например: 123-321 в паскале. ! заранее!