Viết chương trình kiểm tra xem ngày tháng năm có hợp lệ hay không
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.
Những câu hỏi liên quan
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.
BT
2
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.
15 tháng 3 2022
#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;
}
3 tháng 12 2021
#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;
}
Viết chương trình nhập vào 3 số a,b,c. Kiểm tra xem a,b, c có phải là tam giác cân hay không
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.
DQ
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.
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.
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.