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.
b)
uses crt;
var s,i,a:longint;
begin
clrscr;
s:=0;
a:=1;
for i:=1 to 35 do
begin
s:=s+a;
a:=a+3;
end;
writeln('So vien keo la: ',s);
readln;
end.
Câu 7: – Cú pháp câu lệnh lặp với số lần biết trước (for):
for biến := giá_trị_đầu to|downto giá_trị_cuối do câu_lệnh;
while điều_kiện do câu_lệnh;
Câu 8: Viết chương trình tính tổng N số tự nhiên đầu tiên
program TongNso; var N, i, Tong: integer; begin write('Nhap N: '); readln(N); Tong := 0; for i := 1 to N do Tong := Tong + i; writeln('Tong ', N, ' so tu nhien dau tien la: ', Tong); end.
Câu 9: Sử dụng lệnh lặp While..do để tính trung bình n số thực
program TinhTrungBinh; var n, i: integer; x, Tong: real; begin write('Nhap so luong n: '); readln(n); i := 1; Tong := 0; while i <= n do begin write('Nhap so thu ', i, ': '); readln(x); Tong := Tong + x; i := i + 1; end; writeln('Trung binh la: ', Tong / n:0:2); end.
Var i,n:integer;
Begin
Write('n = ');readln(n);
Write('Day so tu 1 den ',n,' la ');
For i:=1 to n do write(i:8);
Readln
End.
uses crt;
var t,v,i,tien:integer;
begin
clrscr;
write('Nhap so von la: '); readln(v);
write('Nhap lai suat:'); readln(i);
write('Nhap so tien can co la: '); readln(tien);
t:=v+v*i;
writeln('So thang la: ',(tien div t)+1);
readln;
end.