Câu 1: var a:array[1..100]of integer;
Câu 2: for i:=1 to 20 do write(i:4);
Câu 1: var a:array[1..100]of integer;
Câu 2: for i:=1 to 20 do write(i:4);
Viết cú pháp đúng của câu lệnh lặp với số lần lặp biết trước và chưa biết. MÌNH đang cần gấp,cảm ơn bạn nào giúp nhé
pascal-lớp 8
Trình bày cú pháp và nêu quá trình thực hiện câu lệnh lặp với số lần chưa biết trước, biết trước?
Viết chương trình sử dụng lệnh lặp While...do để tính tổng các số tự nhiên từ 1 đến 100
Hãy viết chương trình sử dụng vòng lặp For để tính tổng các sô tự nhiên từ 1 tới 10
Các câu lệnh và khai báo sau trong pascal đúng hay sai?hãy chỉ ra lỗi sai nếu có
a) For i:=1 to 10; do x:=x+1;
b) For i: =1 to 10 do writeln('A')
c) Y:=5; while Y:=10 do Y:=Y+20;
d) s :=0; n :=0; ; while s<= 10 do n :=n+1;s:=s+n;
e) for i =100 to 20 do x :=x+2;
f) for i :=2 to 20 do x:=x+1;
Giúp mình 2 câu này
Bài 1.Viết chương trình nhập vào 1 cạnh a và chiều cao h của một hình tam giác. Tính và xuất kết quả S của hình tam giác đó ra màn hình.
Bài 2. Viết chương trình nhập vào 2 số nguyên a và b. Tính và in kết quả của c và d ra màn hình. Biết c là kết quả của phép chia lấy phần nguyên của avà b, d là kết quả của phép chia lấy phần dư của a và b
Sử dụng lệnh lặp while...do để viết chương trinhfkieemr tra một số ngueyen nhập từ bàn phím số đó là chẵn hay số lẽ
Viết ct khai báo biến mảng nhập số N nhập giá trị, tính tổng các số lớn hơn 10 có trong dãy in kết quả
Hưỡng dẫn
Var I, n: integer;
A:array [1.. 100] of integer;
For i:= 1 to n do
Tổng=0
For i:= 1 to n do
If m[i] >10 then
Tổng:= tong + m[i]
For i:= 1 to n do
Cho S và i là 2 biến nguyên. Khi chạy chương trình :
S:=0
for i:=1 to 3 do S:=S+2*i
Writeln(S)
Kết quả in lên màn hình là bao nhiêu ?