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
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 ạ
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Câu 1:
program bai1;
uses crt;
var i,d:integer;
a:array[1..100]of integer;
begin
clrscr;
i:=1;
write('a[',i,']=');readln(a[i]);
repeat
inc(i);
write('a[',i,']=');readln(a[i]);
until a[i]<=0;
d:=i;
writeln('cac so da nhap la:');
for i:=1 to d do
write(a[i]:3);
readln;
end.
Câu 2:
program bai2;
uses crt;
var i,n:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so phan tu cua day so:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('cac so le trong day la:');
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:3);
readln;
end.
Câu 3:
program bai3;
uses crt;
var i,n:integer;
a:array[1..100]of integer;
t:longint;
begin
clrscr;
write('nhap so phan tu cua day so:');readln(n);
t:=0;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if a[i] mod 2=0 then t:=t+a[i];
end;
writeln('tong cac phan tu chan cua day la: ',t);
readln;
end.