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 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/
var a,b,c,n:integer;
begin
readln(n,a,b,c);
if (a=b) or (b=c) or (a=c) then
writeln('can') else writeln('khong can');
end.
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 )
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i]);
break;
end;
readln;
end.
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
a) INPUT: Danh sách số học sinh trong lớp.
OUTPUT: Số học sinh trong lớp mang họ Trần.
b) INPUT: Dãy gồm n số.
OUTPUT: Tổng các phần tử lớn hơn 0.
c) INPUT: Cho n số.
OUTPUT: Số các số có giá trị nhỏ nhất trong n số.
a) INPUT: Danh sách số học sinh trong lớp.
OUTPUT: Số học sinh trong lớp mang họ Trần.
b) INPUT: Dãy gồm n số.
OUTPUT: Tổng các phần tử lớn hơn 0.
c) INPUT: Cho n số.
OUTPUT: Số các số có giá trị nhỏ nhất trong n số.