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.
Các kiểu dữ liệu của các biến cần khai báo :
a) a, h : integer
S : real
Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.
b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )
1/
Program tinh_tong;
Var i, S: Integer;
Begin
i:= 100;
S: = 0;
While i <=1000 do
S:= S + i;
i:= i + 1;
Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); Readln;
End.
2/
Uses crt;
var a: array [1..100] of integer;
n, i, s: integer;
tb: real;
begin
clrscr;
write ('Nhap so luong phan tu: ');
readln (n);
for i:= 1 to n do readln (a[i]);
s:=s+a[i];
tb:=s/n;
writeln ('Gia tri trung binh cong cua mang la ',tb);
write ('Cac phan tu nho hon gia tri trung binh cong: ');
for i:= 1 to n do if a[i]<tb then write (a[i]:5); readln
end.
1/
a) A:=4→đúng
b) X = 3242→sai vì X là biến với kiểu dữ liệu xâu, trong cú pháp gán thiếu dấu ":"
Sửa lại: X:='3242'
c) X:='3242'→đúng
d) A:='Ha Noi'→ sai vì A là biến với kiểu dữ liệu là số thực
Sửa lại: A:=123 hoặc A:=2378
C
(mình không học pascal nhưng mình sẽ đoán là c bởi vì 15/5 không có dư nên phần dư sẽ là 0)
là ví dụ nhập vào 22334 và 8993 thì in ra 22334 tổng là 14; 8993 có tổng là 29; à?
nếu vậy chỉ cần cho chạy vòng mod, div 10 rồi cộng dồn là ra kết quả:
vd for i:=1 to length(a) do begin
sa:=a mod 10;
a:=a div 10; end;
b tương tự kiểu vậy là được :)