Em hãy viết chương trình thực hiện công việc sau: - Hiện thị thông báo mời người dùng nhập vào một số nguyên dương M

PL

Phạm Lê Quỳnh Nga

3 tháng 4 2018

Em hãy viết chương trình thực hiện công việc sau: - Hiện thị thông báo mời người dùng nhập vào một số nguyên dương M; - Sau khi người dùng nhập vào, tìm số tự nhiên k lớn nhất sao cho tổng bình phương của k số tự nhiên đầu tiên nhỏ hơn hoặc bằng M 12 + 22 + 32 + ... + k2 \(\le\)M. ...

Đọc tiếp

#Tin học lớp 8

1

WE

What ever

23 tháng 12 2018

uses crt;

var tong,m,k:longint;

begin clrscr;

write('nhap m= ');readln(n);

k:=0;tong:=0;

repeat

k:=k+1;

tong:=tong + k*k;

until tong>m;

write('so k can tim la: ',k-1);

readln;

end.

Đúng(0)

Q

quocviet2808

11 tháng 5 2023

Hãy viết chương trình pascal thực hiện các công việc sau a ) Nhập vào 1 dãy số nguyên b ) Hiện thị dãy số vừa nhập c ) Tính trung bình công của dãy số đó d ) Hiện thị các số là bội của 3 e ) Hiện thị các số lẻ là bội của 5 f ) Tìm số lớn nhất có trong dãy g ) Đưa số lớn nhất lên đầu dãy nhưng không làm mất các giá trị có trong dãy h ) Tính trung bình cộng số thứ 8 và số thứ 10 ở trong dãy Mai mình thi rồi ,...

Đọc tiếp

#Tin học lớp 8

1

KV

Kiều Vũ Linh

12 tháng 5 2023

Var a:array:[1..1000] of integer;

i,n,max,t,d:integer;

s:longint;

tb:real;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tb:=s/n;

Write('Cac so vua nhap la: ');

For i:=1 to n do

Write(a[i]:8);

writeln;

writeln('Trung binh cong cua day la ',tb:10:2);

Write('Cac so la boi cua 3 la ');

For i:=1 to n do

if a[i] mod 3 = 0 then write(a[i]:8);

writeln;

write('Cac so le la boi cua 5 la ');

for i:=1 to n do

if (a[i] mod 2 <> 0) and (a[i] mod 5 = 0) then

write(a[i]:8);

Writeln;

max:=a[1];

for i:=1 to n do

if a[i] > max then

begin

max:=a[i];

d:=i;

End;

Writeln('So lon nhat la ',max);

t:=a[1];

a[1]:=max;

a[d]:=t;

Write('Day sau khi dem so lon nhat ra truoc ');

For i:=1 to n do

write(a[i]:8)

writeln;

tb:=(a[8] + a[10])/2);

Write(Trung binh cong cua so thu 8 va thu 10 la ',tb:10:2);

Readln

End.

Đúng(2)

TT

Trần Thị Mai Ngọc

18 tháng 4 2021

Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau

- Nhập vào số nguyên n (10<n<100)

-In ra màn hình tất cả các ước của n

-Tính tổng và thông báo các ước của n là số chẵn

#Tin học lớp 8

2

NA

nguyễn an phát

18 tháng 4 2021

program tim_uoc;

uses crt;

var i,n,tong:integer;

begin

clrscr;

write('nhap so n:');readln(n);

i:=1;tong:=0;

writeln('cac uoc cua ',n,' la:');

while i<=n do

if n mod i=0 then

begin

write(i:3);

inc(i);

end;

writeln;

i:=1;writeln('cac uoc chan:');

while i<=n do

begin

if n mod i=0 then

begin

if i mod 2=0 then write(i:3);

tong:=tong+i;

end;

writeln;

write('tong cac uoc chan:',tong);

readln;

end.

Đúng(0)

NL

Nguyễn Lê Phước Thịnh

19 tháng 4 2021

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

i:=1;

writeln('Cac uoc cua ',n,' la: ');

while i<=n do

begin

if n mod i=0 then write(i:4):

i:=i+1;

end;

writeln;

writeln('Cac uoc chan cua ',n,' la: ');

t:=0;

i:=1;

while i<=n do

begin

if (n mod i=0) then

begin

t:=t+i;

write(i:4);

end;

inc(i);

end;

writeln('Tong cac uoc chan cua ',n,' la: ',t);

readln;

end.

Đúng(0)

VD

Võ Đỗ Đăng Khoa

26 tháng 12 2021

Câu 13: Viết chương trình nhập vào năm sinh, hiển thị thông báo số tuổi trong năm hiện tạiCâu 14: Nhập vào 2 số nguyên dương. Hiển thị số lớn nhất (hoặc bé nhất)Câu 15: Kiểm tra số nguyên dương n có chia hết cho 3 hay không?Các bạn giúp mình với mình sắp thi học kì rồi !Cảm ơn nhiều lắm...

Đọc tiếp

#Tin học lớp 8

0

VT

Vũ Tú

19 tháng 4 2023

Viết chương trình Pascal hoàn chỉnh, trong đó có xây dựng các chương trình con để thực hiện một số công việc sau đây và gọi nó trong thân chương trình chính: 1. Nhập vào số nguyên, cho biết số đó là chẵn hay lẻ, âm hay dương; 2. Nhập vào 2 cạnh của hình chữ nhật, tính chu vi, diện tích của nó. 3. Cho 3 số, cho biết ba số đó có thoả mãn là 3 cạnh của một tam giác hay không. 4. Tính N! 5. Tính...

Đọc tiếp

#Tin học lớp 11

0

H

haductrung

18 tháng 3 2022

Viết chương trình Pascal, đặt tên chương trình là tên của con sau đó tải file ảnh lên đây. Chương trình thực hiện công việc sau: Khai báo 1 mảng A chứa tối đa 50 số nguyên, nhập n từ bàn phím, nhập vào mảng A gồm n số, viết mảng A ra màn hình (tất cả các phần tử trên cùng 1 dòng?

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

18 tháng 3 2022

uses crt;

var a:array[1..50]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do write(a[i]:4);

readln;

end.

Đúng(0)

TN

Tích Nguyệt

18 tháng 3 2022

Viết chương trình Pascal, đặt tên chương trình là tên của con sau đó tải file ảnh lên đây. Chương trình thực hiện công việc sau: Khai báo 1 mảng A chứa tối đa 50 số nguyên, nhập n từ bàn phím, nhập vào mảng A gồm n số, viết mảng A ra màn hình (tất cả các phần tử trên cùng 1 dòng?

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

18 tháng 3 2022

uses crt;

var a:array[1..50]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

readln;

end.

Đúng(0)

AN

Anh Nguyen

18 tháng 3 2023

Viết chương trình thực hiện các công việc sau: a) Nhập vào một dãy gồm N số nguyên ( N > 50) b) Hãy in ra màn hình dãy số vừa nhập c) Nhập vào một số nguyên x bất kỳ. In ra các số chia hết cho x

#Tin học lớp 11

1

PS

Phía sau một cô gái

18 tháng 3 2023

N = int(input("Nhập số lượng phần tử của dãy N (>50): "))

while N <= 50:

N = int(input("Nhập lại số lượng phần tử của dãy N (>50): "))

# Nhập vào dãy số

danh_sach = []

for i in range(N):

danh_sach.append(int(input("Nhập số thứ %d: " % (i+1))))

# In ra dãy số vừa nhập

print("Dãy số vừa nhập:")

for i in danh_sach:

print(i, end=' ')

# Nhập vào số nguyên x

x = int(input("nNhập vào số nguyên x: "))

# In ra các số chia hết cho x

print("Các số chia hết cho x là:")

for i in danh_sach:

if i % x == 0:

print(i, end=' ')

Đúng(1)

DQ

Đào Quyền

29 tháng 12 2022

viết chương trình scratch điều khiển nhân vật thầy giáo thực hiện chương trình sau yêu cầu học sinh"hãy nhập một số nguyên"(kết quả được lưu vào biến answer) gán giá trị answer cho biến a thông báo lên màn hình"a là số chẵn" hoặc "a là số lẻ có một chữ số"

#Tin học lớp 8

0

UA

Utfg aghjn

27 tháng 3 2022

Câu 1: Viết cú pháp lệnh khai báo biến mảng? Khai báo 2 biến x,y kiểu mảng có 50 phần tử nguyên. Câu 2: Viết chương trình nhập vào một dãy (mảng) gồm n số và in ra các số chia hết cho 3 đã nhập. Em hãy thực hiện các yêu cầu sau (không viết chương trình): - Em hãy xác định input, output của bài toán - Em hãy khai báo các biến sử dụng trong bài trên Câu 3: Viết chương trình nhập vào n, tính...

Đọc tiếp

#Tin học lớp 8

0

BT

Bui Trong Diep

11 tháng 5 2022

Viết chương trình nhập vào mảng số nguyên rồi thực hiện các công việc sau đây: A) Đếm số các phần tử có giá trị dương(âm) và tính tổng của chúng B) Tìm số dương(âm) đầu tiên và chỉ số của nó trong mảng Mong mọi người giúp ạ mai em ktra học kỳ rồi ạ

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

11 tháng 5 2022

uses crt;

var a:array[1..100]of integer;

i,n,dem1,dem2,t1,t2,sa,sd,vt1,vt2:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem1:=0;

t1:=0;

dem2:=0;

t2:=0;

for i:=1 to n do

begin

if a[i]>0 then begin inc(dem1); t1:=t1+a[i]; end;

if a[i]<0 then begin inc(dem2); t2:=t2+a[i]; end;

end;

writeln(dem1);

writeln(dem2);

writeln(t1);

writeln(t2);

for i:=1 to n do

if a[i]>0 then

begin

sd:=a[i];

vt1:=i;

break;

end;

if (dem1=0) then writeln('Khong co so duong trong day')

else writeln('So duong dau tien la: ',sd,' vi tri la: ',vt1);

for i:=1 to n do

if a[i]<0 then

begin

sa:=a[i];

vt2:=i;

break;

end;

if (dem2=0) then writeln('Khong co so am trong day')

else writeln('So am dau tien la: ',sa,' vi tri la: ',vt2);

readln;

end.

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP