
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.


1 : có trong sgk
3:
a) b1: T←0;
B2: 1 → n ;
B3 : T:=T+1/(i*i) ;
B4: Kết thúc
var a:array[1..32000] of integer;
i,n,j,tam:integer;
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then
begin
tam:=a[i]; a[i]:=a[j]; a[j]:=tam;
end;
writeln('ket qua sap xep la:');
for i:=1 to n do write(A[i]:5);
readln
end.

PROGRAM In_Ma_Khoa;
USES crt;
VAR s:string;
Procedure Tong(x:string);
Var s2,i,s1,code:integer;
Begin
s2:=0;
for i:=1 to length(x) do
begin
val(x[i],s1,code);
s2:=s2+s1;
end;
write(s2);
End;
BEGIN
clrscr;
write('Nhap xau s:'); readln(s);
write('Ma khoa cua xau ki tu la:');
Tong(s);
readln;
END.
TONGXAU
const
fi='tongxau.inp';
fo='tongxau.out';
var
f:text;
a:array[1..32000] of char;
t,s,so,nul,i,n:integer;
procedure inp;
begin
assign(f,fi);
reset(F);
n:=0;
while not(eof(f)) do
begin
inc(n);
read(f,a[n]);
end;
close(F);
end;
procedure out;
begin
assign(f,fo);
rewrite(F);
i:=1 ;
s:=0;
while i<=n do
begin
t:=0;
while a[i] in ['0'..'9'] do
begin
val(a[i],so,nul);
t:=t*10+so;
inc(i);
end;
s:=s+t ;
inc(i);
end;
write(f,s);
close(f);
end;
BEGIN
INP;
OUT;
END.

#include <iostream>
using namespace std;
int main() {
int n;
cout << "Nhap vao mot so nguyen khong am: ";
cin >> n;
int count = 0;
for (int i = n + 1; i <= n * n; i++) {
if (i > 0) {
count++;
}
}
cout << "So luong so duong lon hon " << n << " va nho hon hoac bang " << n * n << " la: " << count << endl;
return 0;
}


Viết bình thường một lệnh cũng được mà, mình không biết làm 2 lệnh
program Tinh_hieu;
var n,i: integer;
S: longint;
begin
write('Nhap so n='); readln(n);
S:=0;
for i:=1 to n do S:=S-i;
writeln('Hieu cua ',n,' so tu nhien dau tien S=', S);
readln
end.
program Tinh_hieu;
uses crt;
var i,n: integer;
S: longint;
begin
clrscr;
write('Nhap so n = ');readln(n);
i:=1;
S:=0;
while i<=n do
begin
S:=S-i;
readln;
end.

Chức năng của hai câu điều kiện dạng thiếu và đủ là xét tính đúng sai của điều kiện

program bai1;
var i,n,s:longint;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Tong la ',s);
readl
end.

bước 1: nhập n
bước 2: i:=1; ln:=a[1];
bước 2: i:=i+1;
bước 3: nếu ln<a[i] thì ln:=a[i];
bước 4: nếu i<=n thì quay lại bước 2;
bước 5: xuất 'số lớn nhất là ',ln;
bước 6: kết thúc
bước 1: nhập n
bước 2: i:=1; ln:=a[1];
bước 2: i:=i+1;
bước 3: nếu ln<a[i] thì ln:=a[i];
bước 4: nếu i<=n thì quay lại bước 2;
bước 5: xuất 'số lớn nhất là ',ln;
bước 6: kết thúc

var
i,n,a,s,d:integer;
s1:lonint;
begin
write(' nhap a : ); readln(a);
s1:=0;s:=0;
while a <> 0 then
begin
s:= s + a mod 10;
a:= a div 10;
n:= n +s;
inc(d);
if s1 = 0 then s1:= s1 + s else
s1:= s1 * 10 + s;
s:=0;
end;
writeln(' chu so :',d);
writeln(' tong : ',n);
write(' dao nguoc: ',s1);
readln
end.
Tôi lớp 4 nhe