Program HOC24;

var i: byte;

t: longint;

begin

t:=1;

for i:=1 to 50 do t:=t*i;

write('Ket qua la: ',t);

readln

end.

Tham khảo:

Program bai_tap;

Uses crt;

Var i:integer;

Begin

clrscr;

For i:=1 to 50 writeln(i);

readln;

End.

program TinhTong;

var

      Tong, i: integer;

begin

      Tong := 0;

      for i := 1 to 50 do

      begin

            Tong := Tong + i;

      end;

      writeln('Tong tu 1 den 50 la: ', Tong);

      readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long i,s;

int main()

{

s=1;

for (i=5; i<=50; i++) s=s*i;

cout<<s;

return 0;

}

Var s,i:longint;

Begin

s:=1;

For i:=5 to 50 do

s:=s*i;

Write('Tich la ',s);

Readln;

End.

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

  if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

readln;

end.

uses crt;

var a:array[1..50]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  readln(a[i]);

for i:=1 to n do write(a[i]:4);

readln;

end.

uses crt;

var a:array[1..50]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

readln;

end.

Pascal hay C++ vậy???

Program bai_tap;

Uses crt;

Var i:integer;

Begin

clrscr;

For i:=9 to 50 writeln(i);

readln;

End.

Program bai_tap;

Uses crt;

Var i:integer;

Begin

clrscr;

For i:=9 to 50 writeln(i);

readln;

End.

uses crt;

var i:integer;

begin

clrscr;

for i:=9 to 50 do 

  write(i:4);

readln;

end.