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.
c1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) s=s*i;
cout<<s;
return 0;
}
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) if (i%2==0) s=s*i;
cout<<s;
return 0;
}
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
i:=i+1;
end;
write(t);
readln;
end.
a)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=0 then
begin
for i:=0 to n do
if i mod 2=0 then write(i:4);
end
else writeln(n,' khong la so chan');
readln;
end.
b)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=1 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else writeln(n,' khong la so le');
readln;
end.
Câu 1:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
Câu 1:
var i,n:integer;
begin
write('n = ');readln(n);
For i:=1 to n do
if i mod 2 = 0 then write(i:6);
readln;
end.
program TongChanLe;
var
n,i, chans, les: integer; a: array[1..100] of integer;
begin
chans := 0;
les := 0;
write('Nhap n: ');
readln(n);
for i:=1 to n do
begin
write('Nhap so thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
chans := chans + a[i]
else
les := les + a[i];
end;
writeln('Tong cac so chan la: ', chans);
writeln('Tong cac so le la: ', les);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
if (i%2==0) t+=i;
cout<<t;
return 0;
}
Câu 1:
Program tongchan;
Var i,s:integer;
Begin
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.
Câu 2:
Program scp;
Var i:longword;
Begin
For i:=1 to n do
If trunc(sqrt(i))=sqrt(i) then write(i:3);
Readln;
End.
Mk chạy thử đc rồi mak, để mk xem lại Trần Cường
Mình k chạy đc
Mình bị 3 lỗi
Ok chạy đc ròi cám ơn bạn nha
Ukm, kcj Trần Cường
Bạn làm điều kiện của số chính phương phải là :
if sqrt(sqr(i))=i then write(i); mới đúng
Bạn cần thêm điều kiện để <1000 nữa
n bạn chưa khai nữa . Mình sẽ làm lại câu 2 cho bạn tham khảo
Bạn phải gán i:=0 nếu bạn gán i:=2 thì nó sẽ bắt đầu từ 4 . Bạn cần gán s:=0 nữa . Bạn nên dùng for thì tốt hơn
mk ms thử cách của bn nhưng ko đc
Cách của mk viết nhầm 1000 thành n, cách của mk vẫn chạy đc mak
Câu 2 mk viết nhầm 1000 thành n, mk sửa lại
Program scp;
Var i:longword;
For i:=1 to 1000 do
If trunc(sqrt(i))=sqrt(i) then write(i:5);
Readln;
End.
Lời giải :
Câu 1 :
program hotrotinhoc ;
var i,tong : integer ;
begin
tong:=0;
for i:= 1 to 100 do
if i mod 2=0 then tong:=tong+i;
write('Tong la:',tong);
end.
Câu 2 :
program hotrotinhoc ;
var i : longint ;
begin
i:=0;
while i<1000 do i:=i+1;
if sqrt(sqr(i)) = i then write(i,' ');
readln
end.
Bn thử chạy chưa, bài 2 ko chạy đc
Bạn thay if sqr(truc(sqrt(i)))=i đi
Vẫn ko đc Tin học [Hỗ trợ]
write(i) nữa
Từ đầu gán i:=2 thì ko s:=s+i là s:=s+2, mk ra đúng kết quả 2550 rồiTin học [Hỗ trợ]
Uhm bạn bỏ cái đó sau đúng rồi
Rồi mak, nó ko ra j hết Tin học [Hỗ trợ]