VCT nhập vào 3 số a,b,c.Cho biết 100 có chia hết cho a+b+c không?in kết quả và cho biết kết quả(a+b+c)/100(lấy hai số thập phân)
2 câu trả lời
uses crt;
var a, b, c : integer;
begin
clrscr;
write('nhap ba so a, b, c : ');readln(a, b, c);
if 100 mod (a + b + c) = 0 then
begin
writeln('100 chia het cho a + b + c');
writeln('100 / (a + b + c) = ', 100 / (a + b + c) :2:2);
end else writeln('100 khong chia het cho a + b + c');
writeln('(a + b + c) / 100 = ', (a + b + c) / 100 :2:2);
readln
end.
uses crt;
var a,b,c,t:longint;
x:real;
begin
clrscr;
write('a,b,c= ');
readln(a,b,c);
t:=a+b+c;
if 100 mod t=0 then writeln('co chia het')
else
writeln('khong chia het');
x:=(a+b+c)/100;
writeln(x:5:2);
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
