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.
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";
}
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.
program bai1;
uses crt;
var a,b,c,s: real;
begin
clrscr;
write('nhap so thu nhat ='); readln(a);
write('nhap so thu hai ='); readln(b);
write('nhap so thu ba ='); readln(c);
s:=a+b+c;
writeln('tong ba so a,b,c =',s:4:2);
readln;
end.
program bai1;
uses crt;
var n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
if n mod 2 = 0 then
writeln('la so chan ') else
writeln('la so le ');
readln;
end.
c:
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
cout<<a*b;
return 0;
}
Câu 1:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<fixed<<setprecision(2)<<a*b*c;
return 0;
}
uses crt;
var a:array[1..100]of integer;
i,n,nn,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
nn:=a[1];
s:=1;
for i:=1 to n do
begin
if nn>a[i] then nn:=a[i];
s:=s*a[i];
end;
writeln(nn);
writeln(s);
readln;
end.
Câu 1:
*Mô tả thuật toán:
Bước 1: Nhập n
Bước 2: kt←0; i←2;
Bước 3: Nếu n chia hết cho i thì kt←1;
Bước 4: i←i+1;
Bước 5: Nếu i<=n thì quay lại bước 3
Bước 6: Nếu kt=0 thì n là số nguyên tố
không thì không phải
Bước 7: Kết thúc
*Mô tả thuật toán:
Bước 1: Nhập n
Bước 2: kt←0; i←2;
Bước 3: Nếu n chia hết cho i thì kt←1;
Bước 4: i←i+1;
Bước 5: Nếu i<=n thì quay lại bước 3
Bước 6: Nếu kt=0 thì n là số nguyên tố
không thì không phải
Bước 7: Kết thúc
Bài 1.Nhập vào một số n từ bàn phím (n là số nguyên)
a)Viết thuật toán để kiểm tra n là số chẵn hay số lẻ
b)Viết chương trình Pascal
bài làm:
a, b1 nhập số n
b2 , n mod 2 = 0 thì chuyển xuống b4
b3 n mod 2= 1 thì chuyển xuống b5
b4 n là số chẵn
b5 n là số lẻ
b,
program Chan_le;
uses Crt;
var n: integer;
begin
clrscr;
write(´Nhap n=`);
readln(n);
if n mod 2 = 0 then writeln(´n la so chan`) else
writeln(´n la so le`);
readln;
end.