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.

15 tháng 9 2021

uses crt;

var a,b,c: integer;

begin

clrscr;

write('Nhap ngay; thang; nam :'); readln(a,b,c);

if (a>=1) and (a<=31) then write('Ngay hop le');

if (b>=1) and (b<=12) then write('Thang hop le');

if (c>=0) and (c<=2021) then write('Nam hop le');

readln

end.

15 tháng 9 2021

uses crt;

var a,b,c: integer;

begin

clrscr;

write('Nhap ngay; thang; nam :'); readln(a,b,c);

if (a>=1) and (a<=31) then write('Ngay hop le');

if (b>=1) and (b<=12) then write('Thang hop le');

if (c>=0) and (c<=2021) then write('Nam hop le');

readln

end.

    
Trả lờiChuyển tiếp
18 tháng 12 2020

Thuật toán: 

-Bước 1: Nhập n

-Bước 2: Nếu \(\sqrt{n}=trunc\left(\sqrt{n}\right)\) thì n là số chính phương

không thì n không phải là số chính phương

-Bước 3: Kết thúc.

Viết chương trình

uses crt;

var n:integer;

begin

clrscr;

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

if n<0 then writeln(n,' khong la so chinh phuong')

else begin

             if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')

             else writeln(n,' khong la so chinh phuong');

       end;

readln;

end.

18 tháng 12 2020

trunc là gì anh ? Với ghi Input Output hộ e với

15 tháng 3 2022

uses crt;

var n:longint;

begin

 clrscr;

write('Nhap nam: ');    readln(n);

if n mod 4=0 then write('Day la nam nhuan')

   else write('Day khong phai nam nhuan');

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%4==0 && n%100!=0) cout<<"La nam nhuan";

else if (n%400==0) cout<<"La nam nhuan";

else cout<<"Khong la nam nhuan";

return 0;

}

#include <iostream>
using namespace std;
int main()
{
    int a,b,c,kt;
    cout<<"Nhap a=";
    cin>>a;
    cout<<"Nhap b=";
    cin>>b;
    cout<<"Nhap c=";
    cin>>c;
    if ((a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a))
    {
        kt=0;
        if (a*a==b*b+c*c) kt=1;
        if (b*b==a*a+c*c) kt=1;
        if (c*c==a*a+b*b) kt=1;
        if ((a==b) and ((a<c) or (a>c)) and ((b<c) or (b>c))) kt=2;
        if ((b==c) and ((b<a) or (b>a)) and ((c<a) or (c>a))) kt=2;
        if ((c==a) and ((c<b) or (c>b)) and ((a<b) or (a>b))) kt=2;
        if ((a==c) and (b==c)) kt=3;
        if (kt==2) cout<<"Day la tam giac can";

else cout<<"Day khong la tam giac can";
    }
    else cout<<"Day khong la ba canh trong mot tam giac";
    return 0;
}

 

28 tháng 12 2020

28 tháng 12 2020

uses crt;

var a,b,c:real;

kt:integer;

begin

clrscr;

repeat

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

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

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

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then 

begin

kt:=0;

if (a=b) and (a<>c) and (b<>c) then kt:=1;

if (b=c) and (b<>a) and (c<>a) then kt:=1;

if (c=a) and (c<>b) and (a<>b) then kt:=1;

if kt=0 then writeln('Day khong la tam giac can')

else writeln('Day la tam giac can');

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

5 tháng 12 2016

program tamgiac;

uses crt;

var a,b,c:integer;

begin

clrscr;

writeln('nhap ba canh cua tam giac'); readln(a,b,c);

if a+b>c and a+c>b and b+c>a then write(a,' ',b,' ',c 'la ba canh cua tam giac') else write(a,' ',b,' ',c 'khong la ba canh cua tam giac');

readln

end.

22 tháng 12 2022

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

if (a=b) and (b=c) then write('YES')

else write('NO');

readln;

end.

1.     Thực hànhBài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.•         Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là...
Đọc tiếp

1.     Thực hành

Bài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.

Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.

•         Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là z, ta hoán đổi x, y cho nhau bằng cách:

•         z:=y { gán giá trị số 7 vào biến nhớ z }

•         y:=x { gán giá trị số 5 vào biến nhớ y }

•         x:=z { gán giá trị số 7 vào biến nhớ x }

Bài 3: Viết chương trình nhập vào ba số nguyên a, b và c từ bàn phím. Tính và in ra màn hình:

      X= a + b + c

      Y= (a + b)2 / c.

      Chạy lại chương trình và nhập giá trị cho a là 10.5, quan sát kết quả và nêu nhận xét.

 

1
18 tháng 12 2021

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin >>x>>y;

cout<<x<<" "<<y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}

2:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,kt=0;

cin>>n;

for (int i=2; i*i<=n; i++)

if (n%i==0) kt=1;

if (kt==0) cout<<"YES";

else cout<<"NO";

}