DT
2
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
KV
7 tháng 4 2023
Var a,b:real;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
If a > b then write('So lon la ',a:10:2)
Else if b > a then write('So lon la ',b:10:2)
Else write('Hai so bang nhau');
Readln;
End.
LT
22 tháng 5 2023
Program solonhon;
var a,b: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a> b then write(a);
if a<b then write(b);
if a=b then write('2 so bang nhau');
readln
end.
D
datcoder
CTVVIP
8 tháng 12 2023
Program HOC24;
var i: byte;
s: string;
begin
readln(s);
for i:=1 to length(s) do
begin
if s[i]='1' then write('mot ');
if s[i]='2' then write('hai ');
if s[i]='3' then write('ba ');
if s[i]='4' then write('bon ');
if s[i]='5' then write('nam ');
if s[i]='6' then write('sau ');
if s[i]='7' then write('bay ');
if s[i]='8' then write('tam ');
if s[i]='9' then write('chin ');
if s[i]='0' then write('khong ');
readln;
end.
16 tháng 3 2021
uses crt;
var n,i,d,max,x,y:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
d:=length(st);
max:=0;
for i:=1 to d do
begin
val(st[i],x,y);
if max<x then max:=x;
end;
writeln(max);
readln;
end.
19 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%2==0) cout<<"Chan";
else cout<<"Le";
return 0;
}
trương ban vẫn học tin hoc à trương minh ko học nữa
begin
writeln('Bay hang dang thuc dang nho: ');
writeln('(a+b)^2 = a^2+2ab+b^2');
writeln('(a-b)^2 = a^2-2ab+b^2');
writeln('a^2-b^2 = (a+b)(a-b)');
writeln('(a+b)^3 = a^3+3a^2.b+3ab^2+b^3');
writeln('(a-b)^3 = a^3-3a^2.b+3ab^2-b^3');
writeln('a^3 + b^3 = (a+b)(a^2-ab+b^2)');
writeln('a^3 - b^3 = (a-b)(a^2+ab+b^2)');
writeln('Hay ghi nho nhe');
end.