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.
-đưa sang dạng xâu rồi chạy for tìm được cuối với đầu
-cách 2 thì: lấy nó chia dư cho 10 thì thu dc số cuối , chia nguyên nó cho 10 cho đến khi nó nhỏ hơn 10 thì dừng :v
uses crt;
var n:string;
i,ln,nn,t,s,x,y:integer;
begin
clrscr;
readln(n);
writeln(length(n));
ln:=0;
nn:=9;
for i:=1 to length(n) do
begin
val(n[i],x,y);
if ln<x then ln:=x;
if nn>x then nn:=x;
end;
writeln(ln);
writeln(nn);
t:=0;
s:=1;
for i:=1 to length(n) do
begin
val(n[i],x,y);
t:=t+x;
s:=s*x;
end;
writeln(t);
writeln(s);
readln;
end.
Bài 1:program sothuc;
uses crt;
var a:array[1..10] of real;s,i,j:real;
begin
s:=0;
for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;
for i:=1 to 10 do if a[i]<0 then
for j:=1 to 10 do
begin a[j]:=sqr(a[i]); s:=s+a[j]; end;
writeln('tong binh phuong cac so am la: ',s:2:2); readln;
end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)
Bài 2:
program soduong;
uses crt;
var a:array[1..100] of integer;s,i,n:integer;
begin
clrscr;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin
writeln('a[',i,']=');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i] end;
writeln('tong so duong trong day la',s:2:0);readln
end.
Bài 3: các số dương mà là số lẻ là sao thế bạn????
bài 1:
var i,n : integer;
writeln('nhap n');
readln(n);
for i:=1 to 100 do
s:=s+i;
writeln('tong la",s);
readln;
end.
bài 2:
var n:real;
begin
writeln('nhap n');
if n (mod 2=0) and (n mod 3=0) then
writeln('chia het roi')
else writeln(khong chia het');
readln;
end.
var n,k,s:int64;
begin
readln(n);s:=1;k:=0;
while s*3<n do
begin
s:=s*3;
inc(k);
end;
write(k);
end.
program bai1;
uses crt;
var n,tong,a,dem,i,t:longint;
j:integer;
s,s1:string;
function demcs(n:longint):longint;
begin
dem:=0;
while n <>0 do
begin
dem:=dem+1;
n:=n div 10;
end;
demcs:=dem;
end;
begin
clrscr;
write('nhap n:');readln(n);
a:=sqr(n);
dem:=0;
while a<>0 do
begin
if a mod 10 =3 then dem:=dem+1;
a:=a div 10;
end;
if dem=0 then writeln('trong so ',sqr(n),' khong co chu so 3 nao')
else
writeln('trong so ', sqr(n),' co ',dem,' chu so 3');
if demcs(n)<>1 then
begin
str(n,s);
s1:=s[length(s)];
for i:=2 to length(s)-1 do s1:=s1+s[i];
s1:=s1+s[1];
val(s1,a,j);
end
else a:=n;
tong:=n+a;
write('tong cua so ban dau va so moi la:',tong);
readln;
end.
*đây là bài 1, còn bài 2 để mai mk giải cho, khuya r
Ok! Cảm ơn bạn nhiều