Tin học (lớp 8)viết CT

[DiepNgocY6342]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Cho vòng lặp:
S:=0;
For i:=1 to 5 do
S:=s + i/2;
Hãy biến đổi vòng lặp trên thành vòng lặp while...do. Và viết thành chương trình hoàn chỉnh.

 

[0938652131]

Cho vòng lặp:
S:=0;
For i:=1 to 5 do
S:=s + i/2;
Hãy biến đổi vòng lặp trên thành vòng lặp while...do. Và viết thành chương trình hoàn chỉnh.

program baitap;
uses crt;
var i:integer;
S:real;
begin
clrscr;
i:=1;
S:=0;
While 1 <= 5 Do
begin
i:=i+1;
S:=S+i/2;
end;
writeln('tong la :',S);
readln;
end.