uses crt;

var i:integer;

begin

clrscr;

writeln('Bang cuu chuong 3 la: ');

for i:=1 to 10 do 

  writeln('3*',i,'=',3*i);

readln;

end.

tham khảo:
 uses crt;

var i:integer;

begin

clrscr;

writeln('Bang cuu chuong 3 la: ');

for i:=1 to 10 do 

  writeln('3*',i,'=',3*i);

readln;

end.

python hay pascal bạn ơi

Tham khảo

Var s,i:integer;
begin
 S:= 0;
 For i:= 1 to 10 do s:=s+1;
 Writeln (‘tong cua 10 so tu nhien dau tien la:’,s);
 Readln
End.

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

Program HOC24;

var n,i: integer;

begin

write('Nhap so nguyen: '); readln(n);

for i:=1 to 10 do

writeln(n,' x ',i,' = ',n*i);

readln

end.

uses crt;

var n,i:integer;

begin

clrscr;

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

for i:=1 to 10 do

writeln(n,'*',i,'=',n*i);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

int main(){

    int n;

    for (int i=1; i<=10; i++)

         cout << n <<" x " << i <<" = "<<n*i;

    return 0;

}

uses crt;

var i,n,t:integer;

begin

clrscr;

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

i:=1;

t:=0;

while i<=n do 

begin

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

i:=i+1;

end;

write(t);

readln;

end.

uses crt;

var i,n:integer;

begin

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

writeln('bang nhan',n);

for i:=1 to 10 do writeln(n,' x ',i:2,' = ',n*i:3);

readln

end.

Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if( i mod 2<>0) then write(i:3);

readln;

end.

uses crt;

var i,n:longint;

begin 

writeln('nhap n'); readln(n);

for i:=1 to n do if i mod 2 =1 then 

writeln(i);

readln;

end.

ngu ththế mà cũng ko làm được về lớp 1 mà học