Viết CT nhập vào một phân số, kiểm tra xem phân số đó có tối giản hay ko ?
Ai bt thì làm ơn giúp nha <3 <3
Bài 7. Câu lênh lặp
#include <bits/stdc++.h>
using namespace std;
long long a,b;
//chuongtrinhcon
long long ucln(long long a,long long b)
{
if (b==0) return(a);
else return(ucln(b,a%b));
}
int main()
{
cin>>a>>b;
if (ucln(a,b)==1) cout<<"Toi gian";
else cout<<"Khong toi gian";
return 0;
}
Đúng 0
Bình luận (0)
Với N là số tự nhiên cho trước. Viết chương trình tính tổng
S=1/2+1/4+...+1/2*N
Giả sử cho trước N thì
S=1/2+1/4=0,5+0,25=0,75
VD: Nhap N= 2KQ*S=0,75
program tong;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
s:=s+(1/(i*2));
write('tong la:',s:0:2);
readln;
end.
Đúng 0
Bình luận (0)
có 3 vị thần, thần khôn ngoan, thần dối trá, thần thật thà
Hỏi thần bên trái ai ngồi cạnh ngài ? Trả lời đó là thần thật thà
Hỏi thần ở giữa ngài là ai ? Trả lời ta là thần khôn ngoan
Hỏi thần bên phải ai ngồi cạnh ngài ? Trả lời đó là thần dối trá
Em hãy xác định vị trí của 3 thần
Nêu cú pháp và hoạt động của vòng lặp với số lần biết trước vẽ sơ đồ khối kiểu lặp đó?
*Cú pháp: For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>
Biến đếm, giá trị đầu, giá trị cuối là số nguyên
Giá trị đầu < giá trị cuối
Số vòng lặp = cuối - đầu + 1
*Hoạt động
Câu lệnh lặp thực hiện lặp lại vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn
*Còn sơ đồ thì mình kh pik =)) Thông cảm nha :D
Đúng 2
Bình luận (0)
Viết chương trình in ra màn hình tổng của n số chẵn đầu tiên vs n dk nhập từ bàn phím
Giúp mjnk vs nha mấy bn. Bài KT kì II của tui
Var i,n,s:integer;
begin
readln(n); s:=0;
for i:=1 to n do
if i mod 2 = 0 then s:=s+i;
writeln('tong so chan', s);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var n,i,s,dem:integer;
begin
clrscr;
write('nhap n:');readln(n);
s:=0; dem:=0; i:=0;
while dem<=n do
begin
if i mod 2 =0 then
begin
s:=s+i;
dem:=dem+1;
i:=i+1;
end
else i:=i+1;
end;
write(s);
readln;
end.
Đúng 0
Bình luận (2)
Viết chương trình tính n! với n! được định nghĩa như sau:
- n! = 1 với n=0
- n! = 1*2*3*...*n( tích của n số từ 1 đến n)
program giaithua;
var { đa số N sẽ < hoặc = 30 }
s:longint;n,i:byte;
begin
write(' nhap n : '); readln(n);
s:=1; { nếu s = 0 thì kết quả 100% = 0 }
for i:= 1 to n do
s:= s *i;
write(' ket qua la :',s:5:2);
readln;
end.
Đúng 0
Bình luận (0)
Var i,n,t,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
for t:=2 to n do s:=i*t;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
Viết câu lệnh in lên màn hình 10 chữ O ( sử dụng câu lệnh lặp For...do)
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
Đúng 0
Bình luận (0)
Cho đoạn chương trình sau:
j:=0; For i:=2 to 7 do j:=j+3;
a. Câu lệnh trên lặp bao nhiêu lần
b. Kết thúc lặp j =?
a. Câu lệnh lặp trân lặp 6 lần.
b. Kết thúc lặp j= 8
Đúng 0
Bình luận (0)
b)
i:=2; j:= j+3 = 0+3 =3
i:=3; j:= j+3 = 3+3 =6
i:=4; j:=j+3 = 6+3 = 9
..
i:=7; j:=j+3 = 15+3 = 16
Đúng 0
Bình luận (0)
Bài 1: Viết chương trình tính n! ( n! = 1.2.3.4...n )
Bài 2: Viết chương trình nhập vào mảng gồm n phần tử là số nguyên dương, in ra mảng vừa nhập. Kiểm tra và in ra màn hình các phần tử là số chẵn.
MN GIÚP MÌNH VỚI MAI PHẢI NỘP BÀI RỒI HUHU T_T
B1:
uses crt;
var n,i:longint;
begin
write('nhap n= ');readln(n);
for i:=1 to n do n:=n*1;
write('n!= ',n);
readln
end.
Đúng 0
Bình luận (0)
Lời giải :
Bài 2 :
program hotrotinhoc ;
var a : array[1..32000] of integer ;
i,n : integer ;
begin
write('Nhap do dai cua mang :'); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:= 1 to n do
if a[i] mod 2 <> 1 then write(a[i],' ');
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình tính 1+1/2+1/3+1/t với t là một số nguyên bất kì được nhập vào từ bàn phím bằng cách sử dụng vòng lặp for...do hoặc vòng lặp while...do
Sử dụng For...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0;
For t:=1 to n do s:=s+1/t;
writeln('Tổng s là',s);
readln
end.
Sử dụng While...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0; t:=1;
While t <= n do
begin t:=t+1;
s:=s+1/t end ;
writeln('Tổng s là',s);
readln
end.
Đúng 0
Bình luận (0)