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 ạ
a/
Biến j ban đầu được gán giá trị là 2.
Vòng lặp thực hiện 5 lần => j = 2+5= 7
Sau mỗi lần lặp giá trị biến j tăng lên lần lượt thành dãy: 3,4,5,6,7
k = 3+4+5+6+7 = 25
b/ Biến j ban đầu được gán giá trị bằng 2
Vòng lặp chạy từ 1 đến 5 trong đó biến đếm i nhận các giá trị chẵn là 2 4
=> Biến j tăng lên 1 đơn vị 2 lần => j = 2 + 1 +1 = 4
Gía trị cuối của j là 4. => k = 3 + 4 = 7
c/
Biến i ban đầu được gán bằng 0, vòng lặp thực hiện khi i<=6 => i = 7 (vì khi giá trị 6 vẫn thõa mãn ĐK <=6 nên câu lệnh i=i+1 vẫn được thực hiện 1 lần nữa)
j được gán giá trị bằng 2 => j = 2 + i = 2 + 7 = 9
Biến j từ 3 tăng lên 9 có dãy: 3,4,5,6,7,8,9 và ban đầu giá trị biến k được gán bằng 3 => k = 3 + 3 +4+5+6+7+8+9 = 45 . Dãy số không bằng đầu từ 2, vì câu lệnh gán của j nằm trên k nên j được thực hiện trước, và khi tính tổng k thì j đã tăng lên 1 đơn vị 2+1 = 3
a. k=23, j=7
b. k=8, j=4
c. k=20, j=8