uses crt;

var a:integer;

begin

clrscr;

write('nhap a='); readln(a);

if a=10 then writeln('phai')

else writeln('ko phai');

readln;

end.

uses crt;
var a,n,i:integer;
s:real;
begin
clrscr;
write('a='); readln(a);
write('n='); readln(n);
s:=0;
for i:=0 to n do
s:=s+1/(a+i);
writeln('tong la: ',s:4:2);
readln;
end.

cho mình hỏi s: 4: 2 là gì vậy ạ?

Giúp gì hả bạn ??

Mong bạn giải thích ^^

bài gì thế bạn

dễ mà bạn

bước 1: vào gmail

bước 2: ở bên trái của gmail, nhấn vào soạn thư

bước 3: khi đó sẽ có 1 cửa sổ mới xuất hiện, ở dưới cùng của ô cửa số , bạn nhấp vào ô đình kèm tệp

bước 4: chọn tệp bạn muốn gửi

bước 5: đợi một chút cho đến khi nó hoàn thành công cuộc tải lên(tùy vào độ lớn của tệp tin)

bước 6: nhấn gửi(lưu ý gửi là phải có người nhận)

Cảm ơn bạn nhiều

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('nhap so phan tu:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

{-------------------------------xu-ly-----------------------------}

writeln;

writeln('cac so le trong day la: ');

for i:=1 to n do

if a[i] mod 2=1 then write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 7=0 then t:=t+a[i];

writeln('tong cac so chia het cho 7 trong day so la: ',t);

readln;

end.

*Đoạn lệnh :

a.

for i:=1 to n do if a[i]>0 then inc(d);

write(d);

b. t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write(t);

c.

+Vị trí lẻ:

for i:=1 to n do if a[i] mod 2=1 then write(i,' ');

+Vị trí chẵn:

for i:=1 to n do if a[i] mod 2=0 then write(i,' ');

d. max:=0;

for i:=1 to n do if a[i]>max then max:=a[i];

write(max);

e.

for i:=1 to n do

for j:=i to n do

if a[i]<a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

f.

For i:=1 to n do if a[i]=k then write(i,' ');

chị @Nguyễn Minh Lệ thì viết một phần gợi ý cho bạn thôi, còn mình sẽ viết hết cả bài cho bạn

uses crt;
var dem2,n,i,dem,t,ln,tam,k,kt,dem1,j:integer;
a,b,vt:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------cau-a-----------------------}
dem:=0;
for i:=1 to n do
if a[i]>0 then dem:=dem+1;
writeln('so cac phan tu nguyen duong co trong mang la: ',dem);
{-------------------cau-b-----------------------------}
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('tong cac phan tu chan co trong day la: ',t);
{-------------------cau-c-----------------------------}
writeln('cac so le co trong day la: ');
for i:=1 to n do
if a[i] mod 2=1 then write(a[i]:4);
writeln;
writeln('vi tri cac so le co trong day la: ');
for i:=1 to n do
if a[i] mod 2=1 then write(i:4);
writeln;
{-----------------cau-d--------------------------------}
ln:=a[1];
for i:=1 to n do
if ln<a[i] then ln:=a[i];
writeln('so lon nhat co trong day la: ',ln);
{----------------cau-e--------------------------------}
b[1]:=a[1];
dem1:=0;
for i:=1 to n do
begin
dem1:=dem1+1;
b[dem1]:=a[i];
end;
writeln('day tang dan cua A la: ');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
{-------------------------cau-f-------------------------}
writeln;
write('nhap so k: '); readln(k);
kt:=0;
dem2:=0;
for i:=1 to dem1 do
if b[i]=k then
begin
kt:=1;
dem2:=dem2+1;
vt[dem2]:=i;
end;
if kt=0 then writeln(k,' khong co trong day')
else begin
writeln(k,' co trong day A tai cac vi tri lan luot la: ');
for i:=1 to dem2 do
write(vt[i]:4);
end;
readln;
end.

#include<bits/stdc++.h>

using namespace std;

int main(){

freopen("thoigian.inp", "r", stdin);

freopen("thoigian.out", "w", stdout);

short n, a[25]={}, inp, res=0;

cin>>n;

for(short i=1; i<=n; i++){

cin>>inp;

for(short j=inp; j<=24; j++) a[j]++;

}

for(short i=1; i<=n; i++){

cin>>inp;

for(short j=inp+1; j<=24; j++) a[j]--;

}

for(short i:a) res=max(res, i);

for(short i=1; i<=24; i++) if(a[i]==res) cout<<i<<' ';

}

*Theo như bộ test, lúc 9h và 10h đều có số thành viên có mặt nhiều nhất là 6 nên mình in cả hai theo đúng yêu cầu của đề nhé <3.

Ở bộ test của bạn số thời gian là 6 có học sinh tham dự bằng 10. Nên ở bài làm của mình sẽ làm thời gian lớn nhất trong số thời gian trùng học sinh tham dự.

Program hotrotinhoc;

const fi='thoigian.inp';

fo='thoigian.out';

var i,n,max,j,max1: integer;

f: text;

c,a,b: array[1..10000] of integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do

read(f,a[i]);

readln(f);

for i:=1 to n do

read(f,b[i]);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

max:=0; max1:=0;

for i:=1 to n do

begin

for j:=a[i] to b[i] do

inc(c[j]);

end;

for i:=1 to 24 do

if c[i]>max then max:=c[i];

for i:=1 to 24 do

if c[i]=max then

begin

if i>max1 then max1:=i;

end;

write(f,max1);

close(f);

end;

begin

ip;

out;

end.

Program so_chinh_phuong;
uses crt;
Var n,x: integer;
BEGIN
clrscr;
write('Nhap so can kiem tra: n = ');
readln(n);
x:=trunc(sqrt(n);
IF sqr(x)=n then write(n,'la so chinh phuong);
ELSE write(n,' khong phai la so chinh phuong.');
readln;
END.

uses crt;

var n:integer;

begin

clrscr;

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

if trunc(sqrt(n))=sqrt(n) then writeln(n,' la so chinh phuong')

else writeln(n,' khong la so chinh phuong'):

readln;

end.