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.
B1 : j : =0
T :=105
While T>= 20 do begin j := j + 5 T :=T - j ; end;
Write \((T)\); write\((j)\)
Bài thuật toán kiểu j vậy??
Mk thấy đây là môn Tin học mà
Chúc bạn học tốt~
S:=0; i:=0;
While i<5 do
begin
S:=S+i;
i:=i+1;
end;
Giải thích:
Mô tả lặp trong vòng lặp while..do :
-Vòng 1: i ban đầu bằng 0. Kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh s=s+i <=> s=0+0=0 ; i=i+1 <=> i=0+1=1.
Vòng 2: i=1 , kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=0+1=1; i=i+1 <=> i=1+1=2.
Vòng 3: i=2, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=1+2=3; i=i+1 <=> i=2+1=3.
Vòng 4: i=3, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=3+3=6; i=i+1 <=> i=3+1=4.
Vòng 5: i=4, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=6+4=10; i=i+1 <=> i=4+1=5.
i=5, kiểm tra điều kiện i<5 ---> ĐK sai ---> kết thúc
Vậy giá trị s sau khi thực hiện đoạn chương trình đó là : 10
a) xác định
input: x
output: x là chẵn hay lẻ
b)
B1: nhập x
B2: Nếu x chia hết cho 2 thì x là số chẵn, không chia hết thì là số chẵn
B3: trả lời số x là số chẵn hay là số lẻ
B4: kết thúc thuật toán.
c)
var
x:integer;
begin
write("nhập x=");
readln(x);
if x mod 2=0 then writeln(x," là số chẵn")
else
writeln(x," là số lẻ");
readln;
end.
program chia;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
s:=0;
for i:=2 to 50 do s:=s+1/i;
writeln('Tong la ',s:1:2);
readln;
end.
:3 bạn ghi đề ra đi nhìn thuât toán rắc rối quá