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.
const fi='kt.txt';
fo='kq.out';
var f1,f2:text;
s:string;
i,dem,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]='e' then inc(dem);
writeln(f2,dem);
close(f1);
close(f2);
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b,c;
int main()
{
cin>>a>>b>>c;
if (a+b>c && b+c>a && a+c>b) cout<<"YES";
else cout<<"NO";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long a,b,c;
int main()
{
cin>>a>>b>>c;
if (a+b>c && b+c>a && a+c>b) cout<<"YES";
else cout<<"NO";
return 0;
}
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Phai')
else writeln('Khong phai');
readln;
end.
uses crt;
var s:real;
a,i,n:integer;
begin
clrscr;
readln(a,n);
s:=1;
for i:=1 to n do
if i mod 2=0 then s:=s*(a+i);
writeln(s:0:0);
readln;
end.
Sửa đề: Kiểm tra N là số chẵn hay số lẻ
uses crt;
var n:longint;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.