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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
E
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
H
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.
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;
}
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.
readln;
end.
BA
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.
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.
Tôi lớp 4 nhe