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.
a: Thực hiện 5 vòng lặp
T=35
j=11
b: Câu lệnh chưa biết trước là while-do, và chương trình của bạn chỉ cần sửa lại chỗ j:=1 thành b:=1 mà thôi
program son;
var
i,n:integer;
a:array[1..32000] of integer;
begin
write(' nhap n : '); readln(n);
for i:= 1 to n do
begin
write(' nhap a[',i,']');
readln(a[i]);
end;
for i:= 1 to n do
if a[i] mod 2 <> 0 then write(a[i],' ')
readln
end.
uses crt;
var s,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0; i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.
t=40,i=25. Giải chi tiết là sao. Cô mình dạy cho mình cách giải là ghi đáp án thui mà.Thông cảm nhen.
uses crt;
var t,i:integer;
begin
clrscr;
t:=0; i:=1;
while i<=20 do
begin
t:=t+i;
i:=i+2;
end;
writeln('Tong cac so le tu 1 toi 20 la: ',t);
readln;
end.
ai giúp mình bây giờ đc không