Viết chương trình tính tích các số tự nhiên từ 5 đến 50
2 câu trả lời
Program baitap;
uses crt;
var S,i : integer;
begin
clrscr;
S:= 0;
For i:=5 to 50 do
S:= S+i;
Writeln (' Vay tong cua cac so tu 5 den 50 la ', S);
Readln
End.
Program baitap;
Uses crt;
Var i:integer;
T: extended;
Begin
Clrscr;
T:=1;
For i:=5 to 50 do T:=T*i;
Writeln('Tich cac so tu 5 den 50:',T);
Readln
End.
- Đề 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
