Viết chương trình nhập vào 3 số nguyên, đếm xem tổng của ba số đó chia hết cho bao nhiêu phần tử trong mảng A gồm 50 phần tử
2 câu trả lời
program ct;
uses crt;
var A:array[1..50] of integer;
i,a,b,c,dem:integer;
S:longint;
begin clrscr;
for i:=1 to 50 do
begin
write('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
writeln('Nhap vao ba so nguyen: '); readln(a,b,c);
S:=a+b+c; dem:=0;
for i:=1 to 50 do
if S mod A[i] =0 then dem:=dem+1;
writeln('Tong cua ba so do chia het cho ',dem,' phan tu cua mang A);
readln;
end.
Học tốt!
program ch;
uses crt;
var a,b,c,i,dem: integer;
a: array[1..50] of integer;
S: longint;
begin
clrscr;
write('Nhap 3 so nguyen: ');
readln(a,b,c);
writeln('--Nhap mang--');
for i:=1 to 50 do
begin
write('Nhap phan tu thu ',i,': ');
readln(a[i]);
end;
S:=a+b+c;
for i:=1 to 50 do
begin
if(S mod a[i] = 0) then dem:=dem+1;
end;
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
