viết chương trình nhập vào dãy số gồm n phần tử. Đếm số lượng các phần tử có giá trị chẵn, lẻ chia hết cho 5 14/07/2021 Bởi Rose viết chương trình nhập vào dãy số gồm n phần tử. Đếm số lượng các phần tử có giá trị chẵn, lẻ chia hết cho 5
#include<fstream> using namespace std; #define fi “004DS.INP” #define fo “004DS.OUT” fstream f; int a, b int main(){ f.open (fi, ios::in); f >> a >>b; f.close (); f.open (fo, ios::out); f << (a-b)/5+1 f.close(); return 0; } Bình luận
program dem_soluong; uses crt; var A:array[1..1000] of integer; n,i,dc,dl,d5:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); dc:=0; dl:=0; d5:=0; for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1; if A[i] mod 5=0 then d5:=d5+1; end; writeln(‘So luong cac phan tu co gia tri chan la: ‘,dc); writeln(‘So luong cac phan tu co gia tri le la: ‘,dl); writeln(‘So luong cac phan tu chia het cho 5 la: ‘,d5); readln; end. Bình luận
#include<fstream>
using namespace std;
#define fi “004DS.INP”
#define fo “004DS.OUT”
fstream f;
int a, b
int main(){
f.open (fi, ios::in);
f >> a >>b;
f.close ();
f.open (fo, ios::out);
f << (a-b)/5+1
f.close();
return 0; }
program dem_soluong;
uses crt;
var A:array[1..1000] of integer;
n,i,dc,dl,d5:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
dc:=0; dl:=0; d5:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1;
if A[i] mod 5=0 then d5:=d5+1;
end;
writeln(‘So luong cac phan tu co gia tri chan la: ‘,dc);
writeln(‘So luong cac phan tu co gia tri le la: ‘,dl);
writeln(‘So luong cac phan tu chia het cho 5 la: ‘,d5);
readln;
end.