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.
Bài bạn có 1 số lỗi về cú pháp. Và đề không yêu cầu sử dụng tệp .
VD lỗi : if uoc:=2 then S:=S+A;
Nhưng thuật toán vậy là đúng rồi. Mình sẽ tặng bạn GP 
Cách 2:
uses crt;
var f:array[1..100]of integer;
n,i,t,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
f[1]:=1;
f[2]:=1;
i:=2;
repeat
i:=i+1;
f[i]:=f[i-1]+f[i-2];
until i=n;
t:=0;
for i:=1 to n do
if f[i]>1 then
begin
kt:=0;
for j:=2 to f[i]-1 do
if f[i] mod j=0 then kt:=1;
if kt=0 then t:=t+f[i];
end;
writeln(t);
readln;
end.
uses crt;
var n,n1,s:real;
begin
clrscr;
write('Nhap n: ');readln(n);
n1:=2*n+1;
s:=((n1 - 1)/2+1)*(n1 + 1)/2;
write(s:0:0);
readln
end.
câu hỏi này bạn nên để chị @Nguyễn Minh Lệ trả lời giúp bạn
Chương trình có dấu cách giữa các số:
Program Doi_thap_phan_ra_nhi_phan;
Var
S,r:integer;
N,T:String;
f:text;
Begin
assign(f,'Nhiphan.INP');
reset(f);
Readln(f,S);
N:=' ';
Repeat
r:= S Mod 2;
Str(r, T);
N:=T + ' ' + N;
S:= S div 2
Until S = 0;
assign(f,'Nhiphan.OUT');
rewrite(f);
write(f,N);
close(f);
End.
uses crt;
var n,i,j:integer;
d:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
i:=1;
repeat
d[i]:=n mod 2;
n:=n div 2;
inc(i);
until n=0;
write('so nhi phan la: ');
for j:=i-1 downto 1 do
write(d[j]);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
int n,kt,t;
int main()
{
cin>>n;
int t=0;
for (int i=1; i<=n; i++)
if (i%2==1) cout<<i<<" ";
cout<<endl;
for (int i=2; i<=n; i++)
{
kt=0;
for (int j=2; j*j<=i; j++)
if (i%j==0) kt=1;
if (kt==0) cout<<i<<" ";
}
return 0;
}
Bộ test số 2 số 7 ở sau số 789 sẽ tạo ra số lớn hơn nó nhưng sao lại để số 7 ở đầu tiên nhỉ. (789756119123)
sắp xếp lại mảng rồi in ra màn hình a[1]a[2]a[3]a[n] làdc
uses crt;
var st:string;
i,t,x,y:integer;
begin
clrscr;
readln(st);
writeln(length(st));
t:=0;
for i:=1 to length(st) do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln(t);
readln;
end.