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('Nhap a='); readln(a);

if a<0 then writeln(a,' la so am')

else if a>0 then writeln(a,' la so duong')

else writeln(a,' khong la so am cung khong la so duong');

readln;

end.

28 tháng 2 2021

var A: integer;

begin

write('Nhap vao mot so A='); readln(A);

if A>0 then write('So A la so nguyen duong');

if A<0 then write('So A la so nguyen am');

If A=0 then write('So A khong la so nguyen am va khong la so nguyen duong');

readln;

end.

 

2 tháng 1 2022

 

program;

uses crt;

var a:longint;

begin

clrscr;

write('nhap a:');readln(a);

if(a>=0)and(a<=50)then write('n nam trong khoang tu 1 den 50')

else write('n khong nam trong khoang tu 1 den 50');

readln;

#include <bits/stdc++.h>

using namespace std;

int a;

int main()

{

cin>>a;

if ((a>=1) and (a<=50)) cout<<"YES";

else cout<<"NO";

return 0;

}

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.

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.