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...

18

Đối với em, nội dung khó khăn nhất trong môn Tin học đó là phần mềm lập trình Scatch vì em phải mất hơn 2 tuần để có thể hiểu hết các tính năng của phần mềm này và để có thể thực hành được nó. Tuy đã thành thạo và hiểu được nhưng đến bây giờ khi thực hành lại thì em vẫn mắc 1 vài lỗi sai.

30 tháng 8

- Đối với em, nội dung khó khăn nhất trong môn Tin học là phần mềm lập trình scratch. Em phải học rất lâu mới có thể thựa hành được ạ. 

Lớp 6 như em cảm thấy rất khó, thế mọi người có thấy khó không ạ?

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