Задано двухзначное число. найдите разность между количеством десятков и единиц

var r,l,s: real; beginwrite('r='); read(r); s: =pi*sqr(r); l: =2*pi*r; write('s=',s,'; l=',l); end.

var a,p: integer; beginread(a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write(p); end.

var a,b,c,min: integer; beginwriteln('введи 3 числа'); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln(3*min: 4); readln; end.

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }