Cho một số nguyên a . kiểm tra xem a có chia hết cho 3 hay không . Em hãy :
a. xác định bài toán
b. mô tả thuật toán
c. viết chương trình pascal thể hiện thuật toán
TIN 8 GIÚP HỘ CÁI
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.
Những câu hỏi liên quan
12 tháng 12 2019
a) xác định
input: x
output: x là chẵn hay lẻ
b)
B1: nhập x
B2: Nếu x chia hết cho 2 thì x là số chẵn, không chia hết thì là số chẵn
B3: trả lời số x là số chẵn hay là số lẻ
B4: kết thúc thuật toán.
c)
var
x:integer;
begin
write("nhập x=");
readln(x);
if x mod 2=0 then writeln(x," là số chẵn")
else
writeln(x," là số lẻ");
readln;
end.
LT
29 tháng 12 2021
Thuật toán:
B1: Nhập số nguyên n
B2: Nếu n >0 thì in ra màn hình n là số dương; nếu n <0 thì in ra màn hình n là số âm; nếu n = 0 thì in ra màn hình n không dương cũng không âm.
B3. Kết thúc
Chương trình:
uses crt;
var n: integer;
begin
write('Nhap so N: '); readln(n);
if n > 0 then writeln(n,' la so nguyen duong') else if n = 0 then writeln(n,' khong la so am cung khong la so duong') else writeln(n, ' la so nguyen am');
20 tháng 2 2022
c:
#include <bits/stdc++.h>
using namespace std;
long long i,n,t,j;
bool kt;
int main()
{
t=0;
for (i=2; i<=50; i++)
{
kt=true;
for (j=2; j*j<=i; j++)
if (i%j==0) kt=false;
if (kt==true) t=t+i;
}
cout<<t;
return 0;
}
8 tháng 2 2022
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.
4 tháng 1 2023
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.
a)
input: a
output: a có chia hết cho 3 ko?
b)
B1: nhập a
B2: nếu a mod 3=0 thì a chia hết cho 3, nếu a mod 3 <>0 thì a ko chia hết cho 3
B3: thông báo a chia hết cho 3 ko
B4: kết thúc.
c)
var
a:integer;
begin
write('nhập a=');
readln(a);
if a mod 3=0 then wirteln(a,' chia hết cho 3')
else
writeln(a,' ko chia hết cho 3');
readln
end.
var n:integer;
begin
assign(input,'CHIA3.inp');reset(input);
assign(output,'CHIA3.out');rewrite(output);
read(n);
if n mod 3 = 0 then write('n chia het cho 3')
else write('n khong chi het cho 3');
end.