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
OM
9
16 tháng 2 2022
bạn tl câu hỏi của mik mik k cho bạn rồi bạn k hai câu mik tl
ok hôm
HT
23 tháng 5 2021
uses crt;
var i,n:byte;Max:real;
a:array[1..50]of real;
begin
clrscr;
write('nhap so hoc sinh cua lop:');readln(n);
for i:=1 to n do
begin
write('nhap diem trung binh mon tin cho hoc sinh thu ',i,':');readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('diem trung binh mon tin cao nhat la: ',Max);
readln;
end.
23 tháng 5 2021
uses crt;
var i,n:byte;Max:real;
a:array[1..50]of real;
begin
clrscr;
write('nhap so hoc sinh cua lop:');readln(n);
for i:=1 to n do
begin
write('nhap diem trung binh mon tin cho hoc sinh thu ',i,':');readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('diem trung binh mon tin cao nhat la: ',Max:0:1);
readln;
end.
24 tháng 11 2019
hàng ngang là ntn, bạn có thể nói rõ được không?
cái này mik không chắc đâu nhé
uses crt;
var x,y,i,j:longint;
begin
clrscr;
for i:=1 to 9 do
for j:=2 to 9 do
begin
write (' ',j,'x',i,'=',i*j:2);
end;
readln;
end.
31 tháng 10 2021
uses crt;
var r,cv,dt: real;
const pi=3.14;
begin
clrscr;
write('Nhap ban kinh r: '); readln(r);
cv:=2*pi*r;
writeln('Chu vi= ',cv:0:2);
dt:=pi*r*r;
writeln('Dien tich= ',dt:0:2);
readln;
end.
8 tháng 3 2019
program nt;
var
n,i:integer;
k:boolean;
begin
write(' nhap n : ');
readln(n);
k:=true;
if n<2 then k:= fasle
else
for i:= 2 to trunc(sqrt(n)) do
if n mod i = 0 then
begin
k:=false;
break;
end;
if k=true then write(n,' la so nguyen to ') else
write(n,' khong phai la so nguyen to');
readln;
end.
có nhé bạn
LƯU Ý
Các bạn học sinh KHÔNG NÊN đăng các câu hỏi không liên quan đến nội dung học tập, hoặc những nội dung linh tinh gây nhiễu diễn đàn..nha