Язык СИ (Откомпилирован и проверен был в Dev-C++)
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
int main()
{
int a, b, c;
printf("\n Vvedite 3 chisla : ");
scanf("%d" "%d" "%d", &a, &b, &c);
if (a > b && a > c) printf("\n a = %d", a);
if (b > c && b > a) printf("\n b = %d", b);
if (c > b && c > a) printf("\n c = %d", c);
if (a == b && a > c) printf("\n a = %d b = %d", a, b);
if (a == c && a > b) printf("\n a = %d c = %d", a, c);
if (b == c && b > c) printf("\n b = %d c = %d", b, c);
if (a == b && a == c) printf("\n a = %d b = %d c = %d", a, b, c);
printf("\n\n press klavishy... ");
getch( );
return 0;
}
Паскаль (Откомпилирован и проверен был в Pascal ABC)
program z1;
uses crt;
var a, b , c: integer;
begin
write('Vvedite 3 chisla: ');
readln(a, b, c);
if (a > b) and (a > c) then writeln(' a = ', a);
if (b > c) and (b > a) then writeln(' b = ', b);
if (c > a) and (c > b) then writeln(' c = ', c);
if (a = b) and (a > c) then writeln(' a = ', a, ' b = ', b);
if (a = c) and (a > b) then writeln(' a = ', a, ' c = ', c);
if (b = c) and (b > c) then writeln(' b = ', c, ' c = ', c);
if (a = b) and (a = c) then writeln(' a = ', a, ' b = ', b, ' c = ', c);
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;
}