Bài 3: Cho Y là thực; Kiểm tra Y có phải là một số không chia hết cho 3 hay là Y chia hết cho 3.
1 câu trả lời
var s,x:string;
m,y:longint;
i,j:longint;
function tcs(x:longint):longint;
begin
str(x,s);
tcs:=0;
for j:=1 to length(s) do
begin
val(s[j],m);
tcs:=tcs+m;
end;
end;
begin
read(y);
if tcs(y) mod 3=0 then write('Y chia het 3')
else write('Y ko chia het cho 3');
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
