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.

Var n,i,s : real;

Begin

s:=0;

i:=0;

Readln(n);

While i <> n do begin i:=i+1; s:=s+i

End;

Writeln('tong s la ',s);

End.

Bạn vào Pascal thử xem đúng chưa nhé!

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;
}

#include <iostream>
using namespace std;
int main()
{
    long long n;
    cin>>n;
    cout <<n*n-n<<endl;
    return 0;
}

Câu 1. dựa vào nguồn cung cấp, ưu tiên cơ quan chính phủ, tổ chức uy tín, báo chí chính thống, kiểm tra tác giả và thời gian đăng, đối chiếu nhiều nguồn khác nhau, xem nội dung có dẫn chứng rõ ràng không, tránh tin giật gân thiếu căn cứ

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;

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.

var n,i,s:longint;

begin

write('nhap so n=');readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln(' tong n so nguyen la:',s);

readln;

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