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.

loading...

0

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.

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.

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.

30 tháng 3 2020

Thầy mk chuyên về mt để mk hỏi xem~~~

30 tháng 3 2020

youtube.com

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.

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.

 

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.

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 ạ

6 tháng 1 2021

writeln trong pascal là từ khóa nha :))

6 tháng 1 2021

writeln trong pascal là 1 từ khóa

29 tháng 3 2019

Bài 9. Làm việc với dãy số

đây là hình minh họa