CÂU 26

Program baitap;

Uses crt;

Var t1,v1,t2,v2,s:real;

Begin

Clrscr;

Write('t1='); Readln(t1);

Write('v1='); Readln(v1);

Write('t2='); Readln(t2);

Write('v2='); Readln(v2);

s:=(t1*v1)+(t2*v2);

Writeln('Quang duong nguoi do di duoc:',s:7:2);

Readln

End.

CÂU 27

Cách 1:

Program baitap;

Uses crt;

Begin

Clrscr;

Writeln('**********');

Writeln('**********');

Writeln('**********');

Writeln('**********');

Writeln('**********');

Readln

End.

Cách 2:

Program baitap;

Uses crt;

Var i:integer;

Begin

Clrscr;

For i:=1 to 5 do Writeln('**********');

Readln

End.

Câu 26 : 

uses crt;

var v1, t1, v2, t2, s : real;

begin

clrscr;

write('nhap thoi gian va van toc di xe may : ');readln(t1, v1);

write('nhap thoi gian va van toc di bo : ');readln(t2, v2);

s := v1 * t1 + v2 * t2;

writeln('quang duong S = ', s:2:1);

readln

end.

Câu 27 : 

Cách 1 : 

procedure hv;

begin

writeln('* * * * * * *');

writeln('*                 *');

writeln('*                 *');

writeln('* * * * * * *');

end;

begin

hv;

end.

Cách 2 : 

uses crt;

var i : integer;

begin

clrscr;

writeln('* * * * * * *');

for i := 1 to 2 do writeln('*               *');

writeln('* * * * * * *');

readln

end.