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.
var a,b:longint;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
cau a) if a>b then write(a);
cau b) if a=b then write('hai so bang nhau') else write('hai so ko bang nhau');
cau c) if a mod b=1 then write('a le') else write('a chan');
readln
end.
mỗi câu a,b,c thì readln rồi end nhé
PROGRAM DIEN TICH TAM GIAC;
{Nhap vao do dai 3 canh tam giac. Tinh dien tich tam giac ay}
VAR a,b,c,p,S:real;kt:boolean;{kt: kiem tra}
BEGIN
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
Write('Nhap c: ');readln(c);
Writeln;
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b);
If kt=true then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich S= ',S:6:2);
end
Else writeln(,'Khong thuc hien vi day khong la do dai 3 canh tam giac');
Readln
END.
* Xin chú ý với bạn rằng: Trước khi tính diện tích tam giác, ta phải kiểm tra xem ba độ dài a, b, c có phải là ba cạnh của tam giác hay không, cho nên cần phải có biến kt:boolean;{kt: kiem tra}
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b)
Chúc bạn học tốt!
program Le_Nho_Hon_Hoac_Bang_n;
uses crt;
var
n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
while n <= 0 do
begin
writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');
readln(n);
end;
clrscr;
writeln('Cac so le nho hon hoac bang ', n, ' la:');
i := 1;
while i <= n do
begin
if i mod 2 <> 0 then
writeln(i);
i := i + 1;
end;
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln(a)
else writeln(b);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%9==0) cout<<"n la boi cua 9";
else cout<<"n khong la boi cua 9";
return 0;
}
uses crt;
var a,b,c,tb:array[1..10]of real;
ln,nn:real;
i:integer;
begin
clrscr;
for i:=1 to 10 do readln(a[i],b[i],c[i]);
for i:=1 to 10 do
tb[i]:=(a[i]+b[i]+c[i])/3;
ln:=0;
nn:=10;
for i:=1 to 10 do
begin
if ln<tb[i] then ln:=tb[i];
if nn>tb[i] then nn:=tb[i];
end;
writeln(ln:4:2);
writeln(nn:4:2);
for i:=1 to 10 do
begin
if tb[i]>=5 then writeln('Ban thu ',i,' Dat')
else writeln('Ban thu ',i,'Chua dat');
end;
readln;
end.
#include <bits/stdc++.h>
using namespace std;
int a;
int main()
{
cin>>a;
if (a>10) cout<<"ban nhap so lon hon 10";
else cout<<"ban nhap so nho hon 10";
return 0;
}
Mình viết ở ngôn ngữ c++ nhé:
#include<iostream>
using namespace std;
int main() {
double a;
cout << "Diem trung binh : "; cin >> a;
if (a >= 1 && a <= 10) {
if (a >= 8) {
cout << "Gioi";
} else if (a >= 6.5 && a <= 7.9) {
cout << "kha";
} else if (a <= 6.4 && a >= 5) {
cout << "trung binh";
} else {
cout << "yeu";
}
} else {
cout << "Diem so khong hop le";
}
return 0;
}
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a>0) and (b>0) then writeln(a*b)
else writeln('Nhap lai');
readln;
end.