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.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
22 tháng 3 2021
uses crt;
var n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong');
readln;
end.
ML
5 tháng 4 2019
program hotrotinhoc ;
var n,P : integer ;
begin
P:=1;
while P<=2000 do
begin
n:=n+1;
P:=P*i ;
end;
write('P=',P);
readln
end.
5 tháng 4 2019
program hotrotinhoc ;
var n,P : integer ;
begin
P:=1;
while P<=2000 do
begin
n:=n+1;
P:=P*i ;
end;
write('P=',P);
readln
end.
17 tháng 4 2021
program in_mang;
uses crt;
var i,n,max:longint;
a:array[1..100]of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('cac phan tu chan:');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:3);
writeln;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('max cua day la:',max);
readln;
end.
19 tháng 4 2021
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
ML
3 tháng 4 2019
Lời giải :
program hotrotinhoc ;
var a: array[1..100] of real ;
i,n,T : integer ;
s: real ;
Begin
write('Nhap so luong hoc sinh trong lop'); Readln(n);
writeln('Nhap diem cua cac ban hoc sinh');
for i:= 1 to n do
begin
write('Nhap diem cua ban thu',i,':'); readln(a[i]);
end;
T:=1; s:=0;
for i:= 2 to n do
begin
if T<a[i] then T:=a[i] ;
s:=s+a[i];
end;
write('Diem thi cao nhat lop la:',T);
write('Diem trung binh cua ca lop la',s);
readln
end.
2 tháng 1 2021
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('La do dai ba canh cua tam giac');
writeln('Chu vi tam giac la: ',a+b+c:4:2);
end
else writeln('Khong phai la do dai 3 canh cua tam giac');
readln;
end.
2 tháng 1 2021
bạn ơi bạn có thể giải thích giúp mình repeat, until là gì không ạ và hình như chương trình của bạn mình nghĩ chắc đúng rồi đó nhưng bạn xét dùm mình xem chỗ var a,b,c,CV:word thì có đúng kh ạ
