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.
Hãy viết chương trình Pascal thực hiện các công việc sau (đặt tên program tên mình)
#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%3==0) t+=i;
cout<<t;
return 0;
}
program tinh_tong;
uses crt;
var i,N:byte;
S:integer;
begin
writeln('Nhap so N='); readln(N);
i:=1; S:=0;
while i<=N do
begin
if (i mod 3=0) and (i mod 2=1) then S:=S+i;
i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
nếu được thì mong bạn kiểm tra lại trên phần mềm dùng mình nhé, do ko có nên cx chẳng kiểm tra được. Thế nên sai thì thông cảm dùng mình nha
#include <bits/stdc++.h>
using namespace std;
long long i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) if (i%3==0) cout<<i<<" ";
return 0;
}
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!=',s:0:0);
readln;
end.
1).
program oken;
uses crt;
var n,i: integer;
gt: qword;
begin
write('nhap n: '): readln(n);
gt:=1;
for i:=1 to n do gt:=gt*i;
writeln('N!=',gt);
readln;
end.
2).
program tongcacsole;
uses crt;
var t,i:longint;
begin
clrscr;
for i:=1 to 203 do
if i mod 2 = 1 then t:=t+i;
write(t);
end.
3).
program tongcacsochan;
uses crt;
var t,i:longint;
begin
clrscr;
for i:=1 to 20 do
if i mod 2 = 0 then t:=t+i;
write(t);
end.
uses crt;
var m,n,t,t1,i:integer;
begin
clrscr;
repeat
write('m='); readln(m);
write('n='); readln(n);
if m>=n then writeln('ban da nhap sai,yeu cau ban nhap lai');
until m<n;
t:=0;
t1:=0;
for i:=m to n do
begin
if i mod 3=0 then t:=t+i;
if i mod 5=0 then t1:=t1+i;
end;
writeln('tong cac so chia het cho 3 trong day so tu ',m,' toi ',n,' la: ',t);
writeln('tong cac so chia het cho 5 trong day so tu ',m,' toi ',n,' la: ',t1);
readln;
end.
uses crt;
var m,n,dem,i:integer;
begin
clrscr;
write('m='); readln(m);
write('n='); readln(n);
if m<n then
begin
dem:=0;
for i:=m to n do
if i mod 3=0 then inc(dem);
writeln('co ',dem,' so chia het cho 3 trong pham vi tu ',m,' toi ',n);
end
else writeln('vui long nhap lai');
readln;
end.
uses crt;
var m,n,dem,i:integer;
begin
clrscr;
write('m='); readln(m);
write('n='); readln(n);
if m<n then
begin
dem:=0;
for i:=m to n do
if i mod 5=0 then inc(dem);
writeln('co ',dem,' so chia het cho 5 trong pham vi tu ',m,' toi ',n);
end
else writeln('vui long nhap lai');
readln;
end.