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.

1/Viết chương trình nhập m, n từ bàn phím (m<n).Tính tổng các số chia hết cho 3? 2/Viết chương trình nhập m, n từ bàn phím (m<n).Tính tổng các số chia hết cho 3 và 5? 3/Nhập vào hai số nguyên dương m từ bàn phím. Viết chương trình tính tổng S sau: S=1^2+2^2+3^2+4^2+...m^2 4/Một người gửi tiết kiệm 100 đồng. Hỏi sau 12 tháng anh ta sẽ thu được số tiền la bao nhiêu?Biết lãi suất mỗi tháng của ngân hàng là...
Đọc tiếp

1/Viết chương trình nhập m, n từ bàn phím (m<n).Tính tổng các số chia hết cho 3?

2/Viết chương trình nhập m, n từ bàn phím (m<n).Tính tổng các số chia hết cho 3 và 5?

3/Nhập vào hai số nguyên dương m từ bàn phím. Viết chương trình tính tổng S sau:

S=1^2+2^2+3^2+4^2+...m^2

4/Một người gửi tiết kiệm 100 đồng. Hỏi sau 12 tháng anh ta sẽ thu được số tiền la bao nhiêu?Biết lãi suất mỗi tháng của ngân hàng là 0.15%.

5/Một giáo viên vào lớp và phát kẹo cho các em học sinh theo qui tắt sau: em đầu tiên được nhận 1 viên kẹo, em tiếp theo nhận số kẹo nhiều hơn em trước đó 3 viên. Hỏi nếu lớp học có 20 học sinh thì tổng số kẹo phải có để giáo viên phát đủ cho cả lớp.

6/tính tổng số đồng tiền được thả vào bàn cờ biết:

+bàn cờ có 64 ô.

+ô đầu tiên, ta thả vào 1 đồng tiền.

+các ô còn lại , ta thả đồng tiền vào theo qui ước ô tiếp theo có dố lượng đồng tiền gấp đôi ô trước đó.

6/Một người tiết kiệm 1000 đồng hỏi bao nhiêu tháng thì anh ta thu được số tiền la 150 đồng?biết lãi suất của ngân hàng là 0.15%

7/"vừa gà vừa chó

bó lại cho tròn

ba mươi sáu con.

một trăn chân chẵn."

hỏi:có bao nhiêu gà và bao nhiêu chó.

1
11 tháng 8 2019

Mình sẽ nêu ý tưởng và bạn hoàn chỉnh thành chương trình nhé

Câu 1 và câu 2 là cách số từ n đến m phải không bạn ?

1.

s:=0;

for i:=m to n do

if i mod 3=0 then s:=s+i;

2.

s:=0;

for i:=m to n do

if (i mod 3=0) and (i mod 5=0) then s:=s+i;

3.

s:=0;

for i:=1 to m do

s:= s+i*i;

4. Ý tưởng ta có :

12 tháng = 0,15%*12=1,8%

=> Tiền lãi nhận được 100*1.8/100=1.8 đồng

5. Ý tưởng ta có dãy : S=1+4+7+...+n (n là số tiền cần tìm);

Số số hạng là 20.

SSH= (n-1)/3+1=20

=> n=...

6. Ý tưởng ta có dãy : S=1+2+22+24+25+...+n (n là số cần tìm)

Bài này tương tự bài 5 tính tổng

7. Ý tưởng ta có :

a là gà

b là chó

if (a+b=36) and (a*2+b*4=100) then write(....

11 tháng 8 2019

thanks

12 tháng 3 2022

tham khảo

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 2 = 1 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

uses crt;

var n,m,i,t:integer;

begin

clrscr;

readln(n,m);

t:=0;

for i:=n to m do t:=t+i;

writeln(t);

readln;

end.

20 tháng 3 2022

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.

20 tháng 3 2022

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.

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

1 tháng 5 2023

Câu 1:

program Tinhtong:

var

     n, i, sum: integer;

begin

     write('Nhap n: ');

     readln(n);

     sum := 0;

     for i := 2 to n do

     begin

          if i mod 2 = 0 then

          begin

               sum := sum + i;

          end;

     end;

     writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);

     readln; 

end.

Câu 2:

program Tinhtong:

var

     n, i, sum: integer;

begin

     write('Nhap n: ');

     readln(n);

     sum := 0;

     for i := 1 to n do

     begin

          if i mod 2 = 1 then

          begin

               sum := sum + i;

          end;

     end;

     writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);

     readln;

end.

2 tháng 5 2023

Sao tới 3 end vậy

uses crt;

var m,n,t,i:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

t:=0;

for i:=m to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);

readln;

end.

3 tháng 5 2021

Program Tin;

Uses crt;

Var i,n:integer

      a:array[1..1000] of integer;

Begin

clrscr;

Write('Nhap n: ');readln(n);

Writeln('Nhap ',n,' so nguyen:');

For i:= 1 to n do 

Begin

Write('A[',i,'] = ');

readln(a[i]);

End;

Writeln('Cac so chan co trong day la:');

For i:= 1 to n do If a[i] mod 2 = 1 then write(a[i],'  ');

Readln;

End.

uses crt;

var a:array[1..100]of integer;

i,m:integer;

begin

clrscr;

write('Nhap m='); readln(m);

for i:=1 to m do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to m do 

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

Câu 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(s);

readln;

end.

Câu 2: 

uses crt;

var t,i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do

t:=t+i;

writeln(t);

readln;

end.

Câu 6:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.