Паскаль
Откомпилирован: (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
#include
#include
#include
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;
}