Cho T=1+3+5+...+199 Viết lập trình Pascal sử dụng câu lệnh lặp để tính tổng T
2 câu trả lời
program tinhtong;
uses crt;
var i,t:longint;
begin
clrscr;
i:=-1;
while i<199 do
begin
i:=t+2;
t:=s+i;
end;
writeln (' Tổng = ',t);
readln
end.
program ct;
uses crt;
var T:real;
i:integer;
begin clrscr;
T:=0;
for i:=1 to 199 do
if i mod 2<>0 then T:=T+i;
writeln('Tong T la: ',T:4:2);
readln;
end.
Học tốt!
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
