Question

Viết đoạn chương trình sử dụng câu lệnh lặp để thực hiện a)In ra màn hình 50 dấu* b)Tính tổng 1+3+5+7+...+99

Answer 1

uses crt;

var i,s:integer;

begin

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

s:=0;

For i:=1 to 99 do while i mod 2 = 1 do s:=s+i;

writeln('tong cua phep tinh la',s); readln;

end.

 

Answer 2

uses crt;

var i,t:integer;

begin

clrscr;

for i:=1 to 50 do

  write('*');

writeln;

t:=0;

for i:=1 to 100 do 

  if i mod 2=1 then t:=t+i;

writeln(t);

readln;

end.