K
Khách

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.

 

 

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.

18 tháng 6 2019

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.

18 tháng 6 2019

Bài 2:

program hotrotinhoc;

var n: string;

begin

write('n='); readln(n);

write(n[2],n[4]);

readln

end.

Bài 3: Tính tổng các chữ số đúng không bạn ? Ở ví dụ sao lại Nhập 123 thì xuất ra kết quả là 5 ạ ? Tổng của 3 chữ số phải là 6 chứ ạ

27 tháng 4 2021

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.

21 tháng 4 2019

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.

19 tháng 12 2021

#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;

}

20 tháng 8 2017

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.

banh

chúc bạn học tốtok