K
Khách

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 a:integer;

begin

clrscr;

write('a='); readln(a);

if a mod 5=0 then writeln(a,' chia het cho 5')

else writeln(a,' khong chia het cho 5');

readln;

end.

7 tháng 12 2019

Còn program là gì bạn

uses crt;

var a:integer;

begin

clrscr;

readln(a);

if (a mod 3=0) or (a mod 5=0) then write('co')

else writeln('khong');

readln;

end.

25 tháng 12 2020

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

if (a mod 3=0) and (a mod 5=0) then writeln(a,' dong thoi chia het cho 3 va 5')

else writeln('Khong thoa dieu kien');

readln;

end.

 

 

 

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

if (i%3==0) t+=i;

cout<<t;

return 0;

}

9 tháng 12 2020

program chia_het;

uses crt;

var a,b:integer;

begin

writeln('Nhap so thu nhat');readln(a);

writeln('Nhap so thu hai');readln(b);

If (a mod b = 0) then writeln('chia het') else writeln('chia khong het');

readln

end.