Дано целое число с.напишите программу, которая возводит в квадрат остаток от целочисленного деления числа с на 10 и выводит на экран монитора результат

#include < stdio.h>

#include < conio.h>

int main( void )

{

  int c, i;

  printf("input number: ");

  scanf(& c);   //амперсант c в скобках

  i = (int)(c%10);

  c = i*i;

  printf("answer: %i", c);

  getch();

  return 1;

}

1. var a,a1,a2: integer; begin write('a = '); readln(a); a1: =a div 10; a2: =a mod 10; if a1*a2 mod 5 = 0   then writeln('да') else writeln('нет'); end. пример: a = 52 да 2. var a,a1,a2: integer; begin write('a = '); readln(a); a1: =a div 10; a2: =a mod 10; if a1> a2   then writeln('2*',a1,' = ',2*a1) else writeln('2*',a2,' = ',2*a2); end. пример: a = 93 2*9 = 18 3. var a,a1,a2: integer; begin write('a = '); readln(a); a1: =a div 10; a2: =a mod 10; if a1 mod 2 = 0 then writeln('3*',a1,' = ',3*a1); if a2 mod 2 = 0 then writeln('3*',a2,' = ',3*a2); end. пример: a = 45 3*4 = 12

// pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! №1 begin   var n: =readinteger('введите двухзначное целое: ');   (var p,var q): =(n div 10,n mod 10);   if (p*q) mod 5=0 then writeln('да')   else writeln('нет') end. №2 begin   var n: =readinteger('введите двухзначное целое: ');   (var p,var q): =(n div 10,n mod 10);   writeln(max(p,q)*2) end. №3 begin   var n: =readinteger('введите двухзначное целое: ');   (var p,var q): =(n div 10,n mod 10);   if p.iseven then p*=3;   if q.iseven then q*=3;   println(p,q) end.