Chuyển đổi biểu thức toán học thành pascal N là số dương chẵn N chia hết cho 3 hoặc 4
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
25 tháng 12 2020
uses crt;
var i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
writeln('Cac so chan va chia het cho 4 trong khoang tu 5 toi ',n,' la: ');
for i:=5 to n do
if (i mod 2=0) and (i mod 7=0) then write(i:4);
writeln;
writeln('Cac so chia het cho 7 trong khoang tu 5 toi ',n,' la: ');
dem:=0;
for i:=5 to n do
if i mod 7=0 then
begin
write(i:4);
inc(dem);
end;
writeln;
writeln('Co ',dem,' so chia het cho 7 trong khoang tu 5 toi ',n);
readln;
end.
TN
1
30 tháng 4 2022
uses crt;
var n,i:integer;
st:string;
begin
clrscr;
readln(n);
if n mod 4=0 then writeln('n chia het cho 4')
else writeln('n khong chia het cho 4');
str(n,st);
writeln(length(st));
for i:=length(st) downto 1 do write(st[i]);
readln;
end.
23 tháng 12 2021
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
NK
19 tháng 10 2021
Input: số nguyên N
Output: N là chẵn hoặc N là lẻ
- Thuật toán liệt kê:
+ Bước 1: Nhập N
+ Bước 2: Nếu N chia hết cho 2 thì in ra N chẵn và kết thúc thuật toán ngược lại nếu N không chia hết cho 2 thì in ra N lẻ và kết thúc thuật toán
- Thuật toán sơ đồ khối:
