Hãy viết 1 chương trình có 2 câu lệnh for do và while do !!!
2 câu trả lời
uses crt;
var i, n, S : integer;
begin
clrscr;
S := 0;
write('Nhap so n : '); readln(n);
while n <= 0 do
begin
write('Nhap lai so n, n la so duong : ');
readln(n);
end;
for i := 1 to n do S := S + i;
writeln('Gia tri S = ', S);
readln
end.
uses crt;
var n,i:longint;
begin
clrscr;
write('nhap bang cuu chuong can xuat:');readln(n);
while(n<=0)and(n>10)do
begin
write('nhap bang cuu chuong can xuat, 0<n<10:');readln(n);
end;
for i:=1 to 10 do writeln(n,'*',i,'=',n*i);
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
