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.
Tớ không hiểu.
Số may mắn là số gì?
6 = 3 + 2 + 1 hay sao?
program KiemTraSoSieuNguyenTo;
uses crt;
function IsPrime(num: integer): boolean;
var
i: integer;
begin
if num < 2 then
IsPrime := false
else
begin
IsPrime := true;
for i := 2 to trunc(sqrt(num)) do
begin
if num mod i = 0 then
begin
IsPrime := false;
break;
end;
end;
end;
end;
function IsSuperPrime(num: integer): boolean;
var
i, temp: integer;
begin
IsSuperPrime := true;
while num > 0 do
begin
if not IsPrime(num) then
begin
IsSuperPrime := false;
break;
end;
temp := num mod 10;
num := num div 10;
end;
end;
var
n: integer;
inputFile, outputFile: text;
begin
assign(inputFile, 'SNT.INP');
assign(outputFile, 'SNT.OUT');
reset(inputFile);
rewrite(outputFile);
readln(inputFile, n);
if IsSuperPrime(n) then
writeln(outputFile, 1)
else
writeln(outputFile, 0);
close(inputFile);
close(outputFile);
end.
bạn viết tới phần mình chưa học á.bạn viết lại đơn giản hơn được không
Bài 1:
uses crt;
var n,kt,d,i:longint;
st:string;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
kt:=0;
d:=length(st);
for i:=1 to d do
if (st[i]<>'4') and (st[i]<>'7') then kt:=1;
if kt=0 then write(n,' la so may man')
else write(n,' khong la so may man');
readln;
end.
uses crt;
var a:int64;
begin
clrscr;
readln(a);
writeln(a*4);
readln;
end.
#include <iostream>
#include <string>
#include <algorithm>
int main() {
int n, k;
std::cin >> n >> k;
std::string number = std::to_string(n);
int numDigits = number.length();
if (k >= numDigits) {
std::cout << "0" << std::endl;
} else {
std::sort(number.begin(), number.end(), std::greater<char>());
number = number.substr(0, numDigits - k);
std::cout << number << std::endl;
}
return 0;
}
Program chiaqua;
Uses crt;
Var n,i,a:Longint;
S:INT64;
Begin
Clrscr;
Write('So em thieu nhi = ');
Readln(n);
S:=1; a:=1;
For i:=2 to n do
Begin
a:=a+3;
S:=S+a;
End;
Write('So goi qua chuan bi = ',S); Readln;
