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.
- Xác định bài toán:
+ Input: a và b là hai số thực
+ Ouput: số lớn nhất trong 2 số a và b
- Mô tả thuật toán:
Bước 1: Nhập a và b
Bước 2: Nếu a > b thì a là số lớn hơn
Bước 3: Nếu b>a thì b là số lớn hơn
- Viết chương trình:
var a,b: integer;
begin
write('a= '); readln(a);
write('b= '); readln(b);
if a > b then write(a,' la so lon hon');
if a < b then write(b,' la so lon hon');
if a = b then write('Khong so nao lon hon');
readln;
end.
a: Input: Số a
Output: Kiểm tra xem a là số chẵn hay lẻ
b:
Bước 1: Nhập a
Bước 2: Nếu a chia hết cho 2 thì xuất a là số chẵn
không thì a là số lẻ
Bước 3: Kết thúc
c:
uses crt;
var a:integer;
begin
clrscr;
readln(a);
if a mod 2=0 then write('a la so chan')
else write('a la so le');
readln;
end.
P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:
Câu 2:
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
Câu 3:
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if n mod i=0 then dem:=dem+1;
writeln('So uoc cua ',n,' la: ',dem);
readln;
end.
Câu 4:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if n mod i=0 then t:=t+i;
writeln('Tong cac uoc cua ',n,' la: ',t);
readln;
end.
Câu 5:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
if n mod i=0 then s:=s*i;
writeln('Tich cac uoc cua ',n,' la: ',s:4:2);
readln;
end.
Câu 6:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);
readln;
end.
Câu 8:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
Bài 1:
Input: Số n
Output: Kiểm tra xem n có chia hết cho 5 ko
Mô tả thuật toán:
Bước 1: Nhập n
Bước 2: Nếu n chia hết cho 5 thì xuất ra có
không thì không
Bước 3: Kết thúc
Viết ct:
uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n mod 5=0 then write('yes')
else write('no');
readln;
end.
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
#include <bits/stdc++.h>
using namespace std;
int a;
int main()
{
cin>>a;
if (a<=8) cout<<"Hop le";
else cout<<"Khong hop le";
return 0;
}
chương trình có chạy được không vậy bạn, mình thấy một đống lỗi rồi đấy
1:
Xác định bài toán:
-Input: Hai số thực a,b(a≠b)
-Output: So sánh a và b
Mô tả thuật toán
-Bước 1: Nhập a và b
-Bước 2: Nếu a>b thì viết a lớn hơn b
Ngược lại thì a nhỏ hơn b
-Bước 3: Kết thúc
Viết chương trình:
uses crt;
var a,b:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until (a<>b);
if a>b then writeln(a,' lon hon ',b)
else writeln(a,' nho hon ',b);
readln;
end.
2:
Xác định bài toán:
-Input: Hai số thực a,b(a≠b)
-Output: Tìm số lớn hơn
Mô tả thuật toán
-Bước 1: Nhập a,b
-Bước 2: Nếu a>b thì viết a lớn hơn b
Ngược lại thì viết b lớn hơn a
-Bước 3: Kết thúc
Viết chương trình:
uses crt;
var a,b:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until (a<>b);
if a>b then writeln(a,' lon hon ',b)
else writeln(b,' lon hon ',a);
readln;
end.
a) INPUT: a, b
OUTPUT: tb
b)