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.

26 tháng 2 2022

có nhé bạn

26 tháng 2 2022

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

15 tháng 3 2022

15 tháng 3 2022

ko

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

16 tháng 2 2022

đc hơm mấy bn

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.

6 tháng 3 2022

C

6 tháng 3 2022

A

24 tháng 11 2019

MMMM.....

Mình không có zalo ^^

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.

10 tháng 12 2021

var a,b:longint;

s,p:real;

ht,cs:string;

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.