KH
2
K
Khách
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 câu hỏi dưới đây có thể giống với câu hỏi trên
19 tháng 3 2021
a)
uses crt;
var n,i,kt,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>1;
writeln('Cac so nguyen to be hon hoac bang ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
ML
11 tháng 12 2019
Em phải ghi rõ dữ liệu vào thì mới giải được chứ. Và theo quy định như thế nào thì HS rớt và HS đậu như (điểm >5 là đầu,<5 là rớt chẳng hạn)
BA
11 tháng 12 2019
program ho_tro;
uses crt;
var diem: real;
begin
clrscr;
writeln(' nhap diem:'); readln(diem);
if diem>5 then writeln( ' thi dau:')
else writeln( ' thi rot:');
readln;
end.
BA
11 tháng 12 2019
Câu 1
* câu lệnh thiếu
if <điều kiện> then < câu lệnh>
* câu lệnh đủ
if <điều kiện> then < câu lệnh 1 > else < câu lệnh 2>
Câu 2 chỉ có thế thôi à bạn. Đề bài k rõ lắm
11 tháng 12 2019
Câu 1:
-Câu lệnh thiếu:
if <điều kiện> then<câu lệnh>;
-Câu lệnh đủ:
if <điều kiện> then <câu lệnh 1>
else <câu lệnh 2>;
19 tháng 5 2020
a) Cú pháp: Var <tên biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>]of <kiểu dữ liệu>;
Trong đó:
-Chỉ số đầu, chỉ số cuối có thể thuộc kiểu dữ liệu integer hoặc string
-Kiểu dữ liệu có thể thuộc kiểu integer hoặc string
b) var a:array[1..31]of real;
NB
18 tháng 4 2023
program TimDiemCaoNhat;
var
diem: array[1..30] of integer;
i, diemCaoNhat, soThuTu: integer;
begin
for i := 1 to 30 do
begin
write('Nhap diem cua ban thu ', i, ': ');
readln(diem[i]);
end;
diemCaoNhat := diem[1];
soThuTu := 1;
for i := 2 to 30 do
begin
if diem[i] > diemCaoNhat then
begin
diemCaoNhat := diem[i];
soThuTu := i;
end;
end;
writeln('Diem cao nhat la: ', diemCaoNhat);
writeln('Ban thu ', soThuTu, ' dat diem cao nhat.');
readln;
end.
a)
const fo='bt4_20.pas';
var f:text;
a,b,c,s,xx:longint;
begin
assign(f,fo); rewrite(f);
a:=30000;
b:=a*2;
c:=b-10000;
s:=a+b+c;
xx:=9500;
writeln(f,s div xx);
close(f);
end.
b)
const fo='bt4_20c2.pas';
var f:text;
a,b,c,s,xx:longint;
begin
assign(f,fo); rewrite(f);
a:=30000;
b:=a*2;
c:=b-10000;
s:=a+b+c;
xx:=9500;
writeln(f,s/xx:4:0);
close(f);
end.
khai báo rồi mà