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.
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.
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.
1.
Program bai1;
uses crt;
var a,b,c: integer;
begin
clrscr;
write('nhap canh a ='); readln(a);
write('nhap canh b ='); readln(b);
write('nhap canh c ='); readln(c);
if (a+b<c) or (b+c<a) and (c+a <b) then
writeln('khong phai la 3 canh cua tam giac ') else
writeln('la 3 canh cua tam giac ');
readln;
end.
2.
program bai2;
uses crt;
var a: array [1..100] of integer;
i,n: integer;
tong: real;
begin
clrscr;
write('nhap n ='); readln(n);
for i := 1 to n do
begin
write('nhap a[',i,'] = '); readln(a[i]);
end;
tong:=0;
for i:= 1 to n do
if (a[i] mod 2 = 0 ) or ( a[i] mod 3 = 0) then
tong:=tong+a[i];
write('tong cac so chia het cho 2 hoac 3 = ' ,tong :4:2);
readln;
end.
a)
Input: Số nguyên dương N, dãy số a1,a2,a3,...,an
Output: Tổng các số chẵn nhỏ hơn hoặc bằng N
b)
Program HOC24;
var i,n: integer;
t: longint;
a: array[1..1000] of integer;
f1,f2: text;
const fi='SONGUYEN.TXT';
fo='SOCHAN.TXT';
begin
assign(f1,fi);
assign(f2,fo);
reset(f1);
rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
for i:=1 to n do if (a[i] mod 2=0) and (a[i]<=n) then
begin
write(f2,a[i],' ');
t:=t+a[i];
end;
writeln(f2);
write(f2,t);
close(f1); close(f2);
end.