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.
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.
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 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.
Lời giải :
program hotrotinhoc ;
var a: array[1..32000] of integer ;
i,n,max : integer ;
begin
write('Nhap n='); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:= 1 to n do if max<a[i] then max:=a[i];
write('So lon nhat la:',max');
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 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.