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:integer;
kt:boolean;
begin
clrscr;
repeat
readln(n);
until n<=100;
if (n<2) then writeln('khong la so nguyen to')
else begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if kt=true then write('la so nguyen to')
else write('khong la so nguyen to');
end;
readln;
end.
Lời giải :
Bài 1:
Ý tưởng:
-Cách 1: Bạn có thể chuyển số n thành xâu sau đó đảo ngược xâu lại
-Cách 2: Đảo trực tiếp chữ số đó
Bài làm :
Cách 1:
program hotrotinhoc;
var n,i: byte;
s,s1: string;
begin
write('n='); readln(n);
str(n,s);
for i:= length(s) downto 1 do
s1:=s1+s[i];
write(s1);
readln
end.
Cách 2:
var n: byte;
begin
write('n='); readln(n);
while n>0 do
begin
write(n mod 10);
n:=n div 10;
end;
readln
end.
uses crt;
var diem:real;
begin
clrscr;
write('nhap diem:'); readln(diem);
if diem<5 then writeln('ban can co gang hon');
if (diem>=5) and (diem<6.5) then writeln('ban dat diem trung binh');
if (diem>=6.5) and (diem<8) then writeln('ban dat diem kha');
if diem>=8 then writeln('ban dat diem gioi');
readln;
end.
A:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
B:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to m do
t:=t+a[i];
writeln(t);
readln;
end.
uses crt;
var s,n,i:integer;
a:array [1..100] of real;
begin
s:=0;
write('nhap so so hang cua day');readln(n);
for i:=1 to n do begin
writeln('so thu',i,'la: '); readln(a[i]); s:=s+a[i]; end;
write('tong day so thuc la:',s); readln;
end.
uses crt;
var a:array[1..100]of real;
i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln(s:4:2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
if (a%b==0) cout<<"YES";
else cout<<"NO";
return 0;
}
uses crt;
var j,tg,s,max,min,i,n:longint;
a:array[1..19] of longint;
s1:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=1 to n do
write(a[i],' ');writeln;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln(‘Gia tri trung binh cua cac phan tu la: ‘,s1:0:0);
min:=a[1];max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
write('Phan tu lon nhat la: ',max,' ','Phan tu nho nhat la: ',min); writeln;
for i:=1 to n do
if (a[i]<>0) and (a[i] mod 2=0) then write(a[i],' ');
readln
end.
uses crt;
var a,b:longint;
begin
clrscr;
write('nhap so thu nhat:');readln(a);
write('nhap so thu hai:');readln(b);
if (a mod 2=0) and (b mod 2=0) then
write('ca hai so deu chan')
else if (a mod 2<>0) and (b mod 2<>0) then
write('ca hai so deu le')
else write('ban vua nhap mot so chan va mot so le');
readln;
end.
chúc bạn học tốt
uses crt;
var n,i:integer;
kt:boolean;
begin
clrscr;
repeat
readln(n);
until n<=100;
if (n<2) then writeln('khong la so nguyen to')
else begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if kt=true then write('la so nguyen to')
else write('khong la so nguyen to');
end;
readln;
end.