Nhanh nhá 1 Cho một dãy số từ 1 đến n với n nhập từ bàn phím.Tính tổng các số lẻ trong dãy đó 2 Tính x^y với x,y nhập từ bàn phím
2 câu trả lời
Câu 1:
program Cau_1;
uses crt;
var n,i,T: integer;
Begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
if i mod 2<>0 then T:=T+i;
write('Tong cac so le trong day = ',T);
readln
End.
Câu 2:
program Cau_2;
uses crt;
var x,y,i,T: integer;
Begin
clrscr;
write('Nhap so x: '); readln(x);
write('Nhap mu y: '); readln(y);
for i:=1 to y T:=T*x;
write(x,'^',y,' = ',T);
readln
End.
Câu hỏi trong lớp
Xem thêm
