Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
1/
program chia_het;
uses crt;
var n, i, s: integer;
a : array [1..100] of integer;
begin
clrscr;
write('Cac so can nhap la: n = '); readln(n); s:=0
for i:=1 to n do begin
write('So thu ',i,' la:'); readln(a[i]);
if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then s:=s+1; end;
writeln('Cac so chia het cho 5 va 2 la: ',s);
readln
end.
6.a sai vì sau do có dấu ;
==> sửa lại: for i := 1 to 10 do write(i:5);
6.b sai vì chỉ số đầu lớn hơn chỉ số cuối (100>10) và chỗ gán cho x thế dấu :
==> sửa lại: for i:=10 tờ 100 đô x:=x-i;
6.c sai vì to viết liền với số 200
==> sữa lại: for i:= 100 tờ 200 độ i:=i+5;
6.d đúng
6.d2 thừa i:=0 và còn ko cách chỗ to và 105
sử lại: var n, i:real;
begin n:=0; for i:=5 to 105 do n:=n+1; end.
câu 1:
Var a, b: real;
Begin
Clrscr;
Write(‘nhap a=’), read(a);
Write(‘nhap b=’); read(b);
If a+b = 120 then a:=120-b;
Readln
End.
câu 2:
s = 63
Câu 1:
Đoạn lệnh trên thực hiện in 5 lần chữ A ( thiếu dấu ; thì đoạn lệnh trên ko chạy được . đề bị thiếu? )
Câu 2 :
Var :(sau var là khai báo biến ko phải dấu :) i : real (thiếu dấu ; )
Begin : (sau begin ko phải là dấu :)
For i := 1 to 100 do
End (sau end là dấu .)
Câu 3:
var A,n.i : integer ;
begin
write('nhap gia tri n:'); readln(n);
for i:=1 to n do A:=A+i;
write('Tong la',A);
readln
end.
câu 1:
a)for i:=17 to 109 do writeln('a');
b)for i:=1 to 10 do x:=x+1;
c)s:=7;
while s<=15 do
begin
n:=n+s;
s:=s+1;
end;
d)var a:array[1..100] of real;
câu 2:
program tihn_tong;
uses crt;
var s,i:integer;
begin
clrscr;
i:=1;s:=1000;
while i<=21 do
begin
s:=s+1000+i;
i:=i+1;
end;
writeln(s);
readln;
end.
câu 3:
cú pháp của lệnh for...to...do:
for<biến đếm>:=<giá trị đầu>to<giá trị cuối>do<công việc>
cú pháp của lệnh while...do:
while<điều kiện>do<công việc>
câu 4:
cú pháp khai báo biến mang trong chương trình pascal:
khai báo trực tiếp:
var <biến mảng>:array[chỉ số]of <kiểu dữ liệu>
khai báo gián tiếp:
type <biến mang> =array[chỉ số]of <kiểu dữ liệu>
Xin lỗi bạn, kết quả là câu D nhé
sao bạn ra đc kết quả vậy?