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.
* Thuật toán:
Bước 1: Nhập n và dãy số a1, a2…, an.
Bước 2: SUM ← 0; i ← 0.
Bước 3: Nếu ai > 0 thì SUM ← SUM + ai, ngược lại đến bước 4.
Bước 4: i ← i + 1;
Bước 5: Nếu i \(\le\) n thì quay lại bước 3.
Bước 6: Thông báo giá trị SUM. Kết thúc thuật toán.
* Chương trình: program tinhtong; uses crt; var a,n,i: integer; sum: real; begin clrscr; write('Nhap n vao'), read(n); write('nhap day A vao'), read(a1,a2,...,an); sum:=0, i:=0; if i <= n then if ai > 0 then sum:=sum+ai else i:i+1; writeln('tong cac so duong trong day la',sum:4:0) readln end. Theo mình thì ntn
Bạn kiểm tra lại đề nha; M, N có liên quan gì đến tổng S bạn nhỉ?
Bài 1 :
Uses crt;
Var x,y:integer;
Begin
clrscr;
Readln(x,y);
Write('Tong cua x,y la ',x+y);
Readln
End.
Bài 2 :
Uses CRT;
var x,y,z:integer; tbc:real;
begin
clrscr;
readln(x,y,z);
tbc:=(a+b+c)/3;
Write('Trung binh cong x,y,z la ',tbc:4:2);
Readln
End.
Câu 1:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<2 then writeln(n,' khong la so nguyen to')
else begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end;
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
THAM KHẢO:
uses crt;
var a,cv,dt:integer;
begin
clrscr;
write('a='); readln(a);
cv:=a*4;
dt:=sqr(a);
if a>0 then
begin
writeln('chu vi hinh vuong la: ',cv);
writeln('dien tich hinh vuong la: ',dt);
end
else writeln('vui long nhap so a lon hon 0');
readln;
end.
uses crt;
var
a,b: integer;
begin
clrscr;
write('Nhap so thu nhat: ');readln(a);
write('Nhap so thu hai: ');readln(b);
writeln('Tong ',a,' va ',b,' la: ',a+b);
readln
end.
Câu 1:
Var
cv,s,a:integer;
begin
write('nhap vao canh hinh vuong:');readln(a);
s:=a*a;
cv:=a*4;
Writeln('chu vi hinh vuong la:',cv);
WRiteln('dien tich hinh vuong la:',s);
readln
end.
uses crt;
var i,n:integer; S:real;
Begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do S:=S+1/(i*(i+2));
writeln('Tong la: ',S:3:1);
readln
End.
Mk chỉ bt lm trên Scratch thui
VAR A,n:real;
begin
write('nhap gia tri n:');readln(n);
A:=1/(1*3)+1/(2*4)+1/(3*5)+.........+1/n(n+2);
writeln('gia tri cua A la:,'A);
readln;
end.
sai toàn tập
ngáo loz
Biến đếm là kiểu nguyên, giá trị đầu và giá trị cuối là các giá trị nguyên
Ai cho mà nhập real vs cái thuật toán tào lao đó