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.
uses crt;
var n,i:longint;
kt:boolean;
begin
clrscr;
readln(n);
if (n<2) then writeln('Nhap lai')
else
begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
kt:=false;
break;
end;
if kt=true then writeln('la so nguyen to')
else writeln('khong la so nguyen to');
end;
readln;
end.
uses crt;
var a,b:longint;
Begin
clrscr;
Writeln('Nhap a,b=');
Readln(a,b);
writeln('tich hai so la : a*b=',a*b);
writeln('thuong hai so la :a/b=',a/b);
Readln;
End.
uses crt;
var n,i,t:int64;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<1000000000);
t:=0;
for i:=1 to n-1 do
if n mod i=0 then t:=t+i;
if t=n then writeln(n,' la so hoan hao')
else writeln(n,' khong la so hoan hao');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
string n;
int d;
int main()
{
cin>>n;
d=n.length();
cout<<d;
return 0;
}
Hà Ngân Hà
Giao Huỳnh
Tuấn Anh Phan Nguyễn
Aimee
Phạm Thanh Tường
Phương Anh (NTMH)
Trần Hoàng Nghĩa
Trân Cao Anh Triêt
Đỗ Hương Giang
Nguyễn Tấn Tài
Nguyễn Trần Thành Đạt
Dương Thu Hiền
Trịnh Thị Như Quỳnh
Minh Hieu Nguyen
và tất cả các bạn khác, bạn nào biết thì giúp nhá !
HELP ME !
Program hotrotinhoc;
var i,n,s,k,max,n1: longint;
begin
write('Nhap N='); readln(n);
max:=0; n1:=n;
while n<>0 do
begin
k:=n mod 10;
s:=s*10+k;
n:=n div 10;
if k>max then max:=k;
end;
writeln('Chu so lon nhat cua so tu nhien vua nhap la :',max);
If s=n1 then write('La so doi xung') else write('Khong phai so doi
xung');
readln
end.
uses crt;
var n,i,d,x,ln,kt:word;
st:string;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
d:=length(st);
for i:=1 to d do
val(st[i],a[i],x);
ln:=0;
for i:=1 to d do
if ln<a[i] then ln:=a[i];
writeln('chu so lon nhat trong so ',n,' la: ',ln);
{-----------------------kiem-tra-doi-xung----------------------------}
kt:=0;
for i:=1 to d do
if a[i]<>a[d+1-i] then kt:=1;
if kt=0 then writeln('day la so doi xung')
else writeln('day khong la so doi xung');
readln;
end.
uses crt;
var a,b,c:integer;
begin
clrscr;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if (a+b+c=a*b*c) then writeln(a,b,c,' ');
readln;
end.
+Tấm biển chỉ đường hướng dẫn em cách đi đến một nơi cự thể nào đó(tiếp nhận bằng thị giác)
+ Tín hiệu xanh đỏ của đèn tín hiệu giao thông trên đường phố cho em biết khi nào có thể qua đường(tiếp nhận bằng thị giác)
+ Tiếng trống trường báo cho em biết đến giờ ra chơi hay vào lớp(tiếp nhận bằng thính giác)
Ngoài ra,còn có thể tiếp nhận thông tin bằng các giác quan khác như mũi ngửi để phân biệt mùi hương,lưỡi nếm để nhận biết vị....
#include <stdio.h>
#include <math.h>
int main() {
int n,a;
printf("Nhap vao so nguyen duong: ");
scanf("%d", &n);
if(n>0)
{
a=sqrt(n);
if((a*a)==n)
printf("So ban da nhap vao la so chinh phuong");
else
printf("So ban da nhap vao ko phai la so chinh phuong");
Bạn ơi câu này là CLB đội tuyển Tin học lớp 6 đó chứ bạn viết cái gì dzậy trời