chuong trinh yeu cau nguoi nhap vao 1 so nho hon 100 neu nguoi dung nhap vao 1 so lon hon 100 thi yeu cau nguoi nhap lai sau do kiem tra so nhap vao co phai la so nguyen to ko
Những câu hỏi liên quan
chuong trinh yeu cau nguoi nhap vao 1 so nho hon 100 neu nguoi dung nhap vao 1 so lon hon 100 thi yeu cau nguoi nhap lai sau do kiem tra so nhap vaof co phair la so nguen to ko
giups em sap thi r a
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.
Đúng 0
Bình luận (0)
viet chuong trinh nhap vao cac so nguyen tu ban phim va tinh tong cua chung.Chuong trinh dung lai khi tong lon hon hoac bang a(a la so nhap tu ban phim)va thong bao tong do ra man hinh(Free Pascal)
Giup minh voi
CAU 1:
A, Nhap vao so nguyen n ; Tinh tong S= 1+2+3+...+n
B, Nhap vao mot mang gom m so nguyen . Tinh tong cac phan tu cua mang do.
GIUP MINH VOI NHA MOI NGUOI ...
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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
trinh viet chuong nhap vao 1 mang 1 chieu gom n phan tu ( voi n duoc nhap vao tu ban phim ). Hay thuc hien cac cong viec sau:
-Nhap/xuar mang
- Dem co bao nhieu phan tu la so chan trong mang
-Kiem tra xem mang co phai la mang le hay khong ? ( tat ca cac phan tu mang la so le )
Bạn ơi phải viết bằng ngôn ngữ lập trình gì vậy.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
viet chuong trinh nhap vao 1 xau Sva 1 ki tu bat ki tu ban phim . kiem tra trong xau vua nhap co bao nhiweu ki tu vua nhap , xoa tat ca ki tu do trong xau S.
MONG MOI NGUOI GIUP DO ;
uses crt;
var s:string;
ktu:char;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
write('Nhap ki tu:'); readln(ktu);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]=ktu then inc(dem);
writeln('So ki tu ',ktu,' trong xau ',s,' la: ',dem);
for i:=1 to d do
if s[i]=ktu then delete(s,i,1);
writeln('Xau sau khi xoa cac ki tu ',ktu,' la: ',s);
readln;
end.
Đúng 0
Bình luận (0)
Bai1 viet chuong trinh dao nguoc 1 so co 3 chu so
vd nhap vao so 123 thi xuat ra ket qua 321
Bai2 In ra 2 chu so thu2 va so thu 4 cua 1 so co 4 chu so
vd nhap vao so 1234 thi xuat ra ket qua la 24
Bai3 Nhap vao 1 so co 3 chu so tinh tong cua 3 so do
vd nhap so 123 thi ket qua xuat ra la 5
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.
Đúng 0
Bình luận (0)
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ứ ạ
Đúng 0
Bình luận (0)
Cau 1: Viet chuong trinh nhap vao n so thuc. Tinh tong cua n so do
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.
Đúng 2
Bình luận (1)
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.
Đúng 1
Bình luận (0)
viet chuong trinh nhap vao so mguyen n va day so gom n la so nguyen tu ban phim in ra man hinh so lon nhat trong day so nguyen vua nhap
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.
Đúng 0
Bình luận (0)
viet chuong trinh nhap vao so nguyen a va b . In ra man hinh ket qua a co chia het cho b hay khong moi nguoi giup em gap voi
#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;
}
Đúng 0
Bình luận (0)