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.
Bài 2:
Program hotrotinhoc;
var i: byte;
begin
write('5 so tu nhien dau tien la : ');
for i:=0 to 4 do write(i,' ');
readln
end.
Bài 3:
Program hotrotinhoc;
var n,i: integer;
s: real;
begin
write('N='); readln(n);
i:=0;
while i<n do
begin
inc(i);
s:=s+1/i;
end;
write('S=',s:1:2);
readln
end.
uses crt;
var
a,b: integer;
begin
clrscr;
write('Nhap so thu nhat: ');readln(a);
write('Nhap so thu hai: ');readln(b);
writeln('Tong ',a,' va ',b,' la: ',a+b);
readln
end.
Câu 1:
Var
cv,s,a:integer;
begin
write('nhap vao canh hinh vuong:');readln(a);
s:=a*a;
cv:=a*4;
Writeln('chu vi hinh vuong la:',cv);
WRiteln('dien tich hinh vuong la:',s);
readln
end.
var a:array[1..32000] of integer;
i,n,T,S:integer;
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
T:=0;
for i:=1 to n do if a[i] mod 2=0 then T:=T+a[i];
writeln('tong cac so chan la:',T);
S:=0;
for i:=1 to n do if a[i]<0 then S:=S+a[i];
writeln('tong cac so am la:',S);
readln
end.
uses crt;
var a:array[1..100]of integer;
n,i,max,min,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
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];
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
writeln('Trung binh cua day so la: ',t/n:4:2);
readln;
end.
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Câu hỏi của Ngân Nguyễn - Tin học lớp 8 | Học trực tuyến
nhớ khai báo thêm biến S nhé
uses crt;
var s:string;
a:array[1..100] of integer;
n,i,k,gt:integer;
begin
clrscr;
write('nhap vao xau nhi phan:');
readln(s);
for i:=1 to length(s) do
if s[i]='1' then
a[i]:=1
else
a[i]:=0;
n:=0;
for i:=1 to length(s) do
begin
gt:=1;
for k:=1 to length(s)-1 do
gt:=gt*2;
n:=n+a[i]*gt;
end;
write('so thap phan la:',n);
readln;
end.