Đề tin (HOT)

Bài 1


Program bt1;
uses crt;
const g=9.8;
Var v,h:real;
Begin
Writeln('nhap do cao h: ');
readln(h);
v:=sqrt(2*g*h);
writeln('van toc cua chat diem la ',v:6:3);
readln;
end.

Bài 2


Program bt2;
uses crt;
var x,y,S:integer;
begin
clrscr;
writeln('nhap x: ');
readln(x);
writeln('nhap y: ');
readln(y);
If (x>1) and (y>1) then S:=x+y;
If (x>1) and (y<=1) then S:=x-y;
If (x<=1) and (y>=0) then S:=-x+y;
If (x<=1) and (y>=0) then S:=-x-y;
writeln('ket qua cua phep tinh la ',S);
readln;
end.

Bài 3


Program bt3;
uses crt;
var S:real;
i:integer;
Begin
clrscr;
S:=0;
For i:=1 to 2009 do
S:=S+sqrt(i);
Writeln('Tong la ',S:6:2);
readln;
end.


Bài 4

program bt4;
uses crt;
var a:array[1..1000] of integer;
n,i,d,min:integer;
begin
clrscr;
writeln('nhap so phan tu cua mang');
readln(n);
for i:=1 to n do
begin
Write('a[',i,'] = ');
readln(a);
end;
d:=0;
for i:=1 to n do
if (a[i] mod 2 <>0) then d:=d+1;
writeln('co ',d,' so le ');
min:=a[1];
for i:=1 to n do
if a[i]<min then min:=a[i];
writeln('phan tu nho nhat la ',min);
readln;
end.


Bài làm mang tính chất tham khảo,ai ko tin thì đừng chép nhé
Chúc mọi người làm bài thi tốt

[/i][/i][/i][i][/i]

cam on ban Phu' dug' cai' mik dag can

Phú khá

siêu =)

thằng này liều, tuyên truyền văn hóa phẩm ..."bài giải", ông đức vào xem mà tóm đc thì vui

Tao hỏi nhé,mày có chép bài này ko

i hệt luôn, từ đầu đến cuối bác quảng xẽ có nghi ngờ