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
12 tháng 1 2022
uses crt;
var kt:boolean;
st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
kt:=true;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=false;
if kt=true then writeln('Day la xau doi xung')
else writeln('Day khong la xau doi xung');
readln;
end.
NB
6 tháng 5 2023
program CheckOddNumber;
function IsOddNumber(n: integer): boolean;
begin
if n mod 2 = 1 then
IsOddNumber := true
else
IsOddNumber := false;
end;
var
n: integer;
begin
writeln('Nhap mot so nguyen duong: ');
readln(n);
if IsOddNumber(n) then
writeln(n, ' la so le.')
else
writeln(n, ' ko la so le.');
readln;
end.
13 tháng 6 2020
uses crt;
var a:array[1..500]of integer;
i,n,t:integer;
{----------------------chuong-trinh-con------------------------}
function kiem_tra(x:integer):boolean;
begin
if x mod 2<>0 then kiem_tra:=true
else kiem_tra:=false;
end;
{----------------------chuong-trinh-chinh----------------------}
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=500);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
t:=0;
for i:=1 to n do
if kiem_tra(a[i])=true then t:=t+a[i];
writeln('Tong cac so le la: ',t);
readln;
end.
3 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long m,n;
int main()
{
cin>>m>>n;
if (m%n==0) cout<<m/n;
else if (n%m==0) cout<<n/m;
else cout<<m+n;
return 0;
}