Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
USES crt;
VAR i,n:integer;
BEGIN
clrscr;
write('Nhap n:');readln(n);
i:=1;
while i<=10 do
begin
writeln(n,' X ',i,'=',n*i);
inc(i);
end;
readln;
END.
program bang_nhan;
uses crt;
var i,N : integer;
begin clrscr;
write('Nhap so N='); readln(N);
writeln('Bang nhan' , N , 'la :');
for i:= 1 to 10 do writeln(N , 'x' , i ,'=' , N * i );
readln;
end.
C2: Program Cau_2;
Var
A,x:integer;
Begin
clrscr;
writeln('Hay nhap so x:');
readln(x);
A:=0;
A:=x*(2+x)-x;
writeln('Bieu thuc A bang:',A:10:5);
Readln;
end.
program Tinh_tong;
uses crt;
var S,i:integer;
begin
S:=0;
for i:=1 to 50 do S:=S+i;
writeln('Tong tu 1 den 50 la:',S);
readln
end.
1)
var n: integer ;
write('nhap gia tri n'); readln(n);
for 1 to n do
if i mod 2 =1 then write(i:3);
readln
end.
Trả lời:
Khi chạy chuong trình, sẽ hiển thị như sau:
13*2-12+1=16
16 div 3 = 3
16 mod 3 = 51
Chúc bạn học tốt!
khi chạy ct, kết quả hiển thị như sau:
13*2-12+2=16
16 div 3= 3
16 mod 3= 3
chúc bạn học tốt
Bài 1:
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
writeln('O');
delay(2000);
end;
readln;
end.
Bài 2:
uses crt;
var n,i:integer;
p:real;
begin
clrscr;
write('Nhap n='); readln(n);
p:=1;
for i:=1 to n do
p:=p*1/i;
writeln('Tich cua day so tu 1/1 toi 1/',n,'=',p:4:2);
readln;
end.
Bài 1:
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t1:=0;
for i:=1 to n do
t1:=t1+i*(i+1)*(i+2);
t2:=0;
for i:=1 to n do
begin
if i mod 2<>0 then t2:=t2+i*(i+1)*(i+2)
else t2:=t2-i*(i+1)*(i+2);
end;
writeln('T1=',t1);
writeln('T2=',t2);
readln;
end.
Bài 2:
uses crt;
var i,dem,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
writeln('Cac uoc cua mot so ',n,' la: ');
for i:=1 to n do
if n mod i=0 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln('So luong uoc cua ',n,' la: ',dem);
readln;
end.
var i,k:integer;
begin
k:=2;
for i:=1 to 10 do writeln(k,' x ',i,k*i);
readln;
end.
Var i ,a : byte;
Begin;
i:=2;
For a:=1 to 10 do Writeln ( i, 'x',a,'=',i*a);
Readln;
End.