a) 5 vòng lặp

giá trị T và i :

Bước 1: i:=0, T:=105

Bước 2: 105 >= 20, tiếp tục với bước 3

Bước 3: i:=i+5=5, T:=105-5=100

Bước 2: 100 >= 20, tiếp tục với bước 3

Bước 3: i:=i+5=10, T:=100-10=90

Bước 2: 90 >= 20, tiếp tục với bước 3

Bước 3: i:=i+5=15, T:=90-15=75

Bước 2: 75 >= 20, tiếp tục với bước 3

Bước 3: i:=i+5=20, T:=75-20=55

Bước 2: 55 >= 20, tiếp tục với bước 3

Bước 3: i:=i+5=25, T:=55-25=30

Bước 2: 30 < 20, chuyển sang bước 4

Bước 4: in ra kết quả T=30 và i=25

=>sau khi thực hiện thuật  giá trị T và i lần lượt là 30 và 25.

b)

program BaiTinHoc;

var
  i, T: integer;

begin
  i := 0;
  T := 105;
  
  repeat
    if T < 20 then
      break;
    i := i + 5;
    T := T - i;
  until false;
  
  writeln('T = ', T);
  writeln('i = ', i);
end.

Câu 2: 

-Bước 1: s←0; i←1;

-Bước 2: s←s+i;

-Bước 3: i←i+1;

-Bước 4: Nếu i<=100 thì quay lại bước 2

-Bước 5: Xuất s

-Bước 6: Kết thúc

Câu 3:

Dạng thiếu: if <điều kiện> then <câu lệnh>;

Dạng đủ: if <điều kiện> then <câu lệnh> 

else <câu lệnh>;

Câu 4: 

uses crt;

var m,n:integer;

begin

clrscr;

write('Nhap m='); readln(m);

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

if (m mod 2=0) and (n mod 2=0) then writeln('Ca hai cung la so chan')

else if (m mod 2<>0) and (n mod 2<>0) then writeln('Ca hai cung la so le')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so chan')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so chan')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so le')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so le');

readln;

end.

Câu 5: 

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

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

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

if (a=b) and (a<>c) and (b<>c) then writeln('Tam giac can')

else if (b=c) and (a<>b) and (a<>c) then writeln('Tam giac can')

else if (c=a) and (c<>b) and (a<>b) then writeln('Tam giac can')

else if (a=b) and (b=c) then writeln('Tam giac deu')

else writeln('Day khong phai la tam giac deu hay tam giac can');

readln;

end.

a: uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

for i:=1 to 100 do s:=s+1/i;

writeln(s:4:2);

readln;

end.

b: 

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

i:=0;

while i<=100 do 

begin

inc(i);

s:=s+1/i;

end;

writeln(s:4:2);

readln;

end.

2:

#include <bits/stdc++.h>

using namespace std;

long long a[100],n,i,t,k;

int main()

{

cin>>n>>k;

t=0;

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

{

cin>>x;

if (x%k==0) t=t+x;

}

cout<<t;

return 0;

}

dễ thế mà không biết trả lời