K
Khách

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.

26 tháng 4 2019

1 : có trong sgk

3:

a) b1: T←0;

B2: 1 → n ;

B3 : T:=T+1/(i*i) ;

B4: Kết thúc

26 tháng 4 2019

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.

25 tháng 4 2018

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é!

4 tháng 8 2017

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.

16 tháng 8 2017

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.

17 tháng 6 2023

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

15 tháng 6 2023

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

 

30 tháng 3 2017

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.

30 tháng 3 2017

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;

end;
writeln('Hieu cua ',n,' so tu nhien dau tien la ',S);
readln;
end.

13 tháng 12 2019

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

27 tháng 12 2017

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.

27 tháng 12 2017

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.

16 tháng 11 2019

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

10 tháng 2 2020

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

5 tháng 10 2018

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.

5 tháng 10 2018

lonint bạn sửa lại longint nhé