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.

3 tháng 10 2019

Câu lệnh trên giải bài toán tìm UCLN của M và N. Với ý tưởng, kiểm tra xem M, N có giá trị khác nhau không. Nếu có thực hiện kiểm tra giá trị nào lớn hơn. Giá trị lớn hơn sẽ được gán bằng hiệ của số lớn trừ số bé. Việc làm thế cứ lặp đi lặp lại đến khi hai giá trị bằng nhau thì đưa ra UCLN của nó.

   Đáp án: A

16 tháng 1 2018

1

Uses crt;
Var t,n,i:longint;
Begin
clrscr;
write('nhap vào số n: ');readln(n);

while n<1 do readln(n);
for i:=1 to n do t:=t*i;
write('tich tren co ket qua la: 't);
readln;
End.

2(bài này sử dụng mảng nhé)

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
Write('Nhap N='); Readln(N);

while N<1 do readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('so lon nhat trong day N:', Max);
Readln;
End.

3

Uses crt;
Var a:array[1..20]of integer;i,N,max,min:integer;
Begin
Clrscr;
Write(‘Nhap so phan tu cua day n=’);readln(n); For i:=1 to n do
Begin

Write(‘Nhap a[‘,i,’]=’);readln(a[i]);
End;
Min:=a[1]; Max:=a[1]; For i:=1 to N do
Begin

If (Min > a[i]) then Min:=a[i];
If (Max < a[i]) then Max:=a[i];
End;
Writeln('Day so vua nhap la: '); Writeln('————————-'); For i:=1 to N do
Write(a[i]:4); Writeln;
Writeln('Gia tri lon nhat la:',Max); Writeln('gia tri nho nhat la:',Min);
Readln;

End.

kiểm tra xem đúng ko nhé!

17 tháng 1 2018

1)var n,i:integer;
s:real;
begin
repeat
write('n=');readln(n);
until (n>=1) and (n<=100);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(' tich la: ',s:1:0);
readln;
end.

2 tháng 5 2021

Mình chỉ viết được pascal được không?

Bài 1: Hãy viết các câu lệnh khai báo theo yêu cầu sau: A. Khai báo mảng A gồm 100 phần tử thuộc kiểu dữ liệu số thực. B. Khai báo mảng B gồm 20 phần tử thuộc kiểu dữ liệu số nguyên. C. Phần tử thứ 7 của mảng A được gán giá trị là 8. D. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên. Bài 2: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các...
Đọc tiếp

Bài 1: Hãy viết các câu lệnh khai báo theo yêu cầu sau:

A. Khai báo mảng A gồm 100 phần tử thuộc kiểu dữ liệu số thực.

B. Khai báo mảng B gồm 20 phần tử thuộc kiểu dữ liệu số nguyên.

C. Phần tử thứ 7 của mảng A được gán giá trị là 8.

D. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên.

Bài 2: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài của dãy cũng được nhập từ bàn phím.

Bài 3: Viết chương trình nhập điểm kiểm tra học kỳ môn Tin cho N học sinh và in ra màn hình. Với N và điểm kiểm tra được nhập từ bàn phím( sử dụng biến mảng).

Bài 4: Viết chương trình:

a) Nhập vào mảng A có n phần tử.

b) In mảng A đã nhập ra màn hình.

c) In ra màn hình các số dương.

d) Tính tổng và giá trị trung bình của các số dương trong mảng.

Bài 5: Viết chương trình:

a) Nhập vào mảng A có n phần tử.

b) In mảng A đã nhập ra màn hình.

c) In ra các số chẵn của mảng.

d) In ra các số lẽ của mảng.

2
30 tháng 3 2019

Program ct;

Var i,n,so le, so chan:integer;

B:Array[1..n] of integer;

Begin

Write('n=');Readln(n);

For i:=1 to n do begin Write('B[',i,']=');

Readln(B[i]);

End;

For i:=1 to n do Begin

if B[i] mod 2 <>0 then writeln('so le , ' );

If B[i] mod 2=0 then writeln('so chan ,' );

End;

Readln

End.

11 tháng 4 2019

Lời giải:

Bài 1 :

a) var A : array[1..100] of real ;

b) var B : array[1..20] of integer ;

c) A[7] := 8 ;

Bài 2 :

program hotrinhoc ;

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

i,n: integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

readln

end.

Bài 3 :

program hotrinhoc ;

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

i,n: integer ;

begin

write('Co tat ca so ban hoc sinh la'); readln(n);

write('Nhap diem mon tin cua cac ban');

for i:= 1 to n do

begin

write('Ban thu ',i,':'); readln(a[i]);

end;

readln

end.

Bài 4 : a,b giống bài 3

c)

program hotrinhoc ;

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

i,n,tong : integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

tong:=0;

for i:= 1 to n do

if a[i] > 0 then tong:=tong+1;

write('Ket qua la',tong);

readln

end.

Bài 5: a và b tương tự bài 3

c+d )

program hotrinhoc ;

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

i,n: integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:= 1 to n do

c) if i mod 2= 0 then write('Cac so chan cua mang la:',i);

d) if i mod 2= 1 then write('Cac so le cua mang la:',i);

readln

end.

1, Cho s và i là biến nguyên. Khi chạy đoạn chương trình: s:=0;for i:=1 to 3 do s := s+3*i; s:=s+5;writeln(s); Kết quả in lên màn hình là? * A.12 B. 10 C.23 D. 26 2, Kêt quả của câu lệnh For i:=1 to 20 do if i mod 3=2 then write(i:3); * A.In ra các số lẻ từ 1 đến 20; B. In ra các số chẵn từ 1 đến 20; C. In ra các số chia hết cho 3 từ 1 đến 20; D. In ra các số chia hết cho 3 dư 2 từ 1 đến...
Đọc tiếp
1, Cho s và i là biến nguyên. Khi chạy đoạn chương trình: s:=0;for i:=1 to 3 do s := s+3*i; s:=s+5;writeln(s); Kết quả in lên màn hình là? * A.12 B. 10 C.23 D. 26

2, Kêt quả của câu lệnh For i:=1 to 20 do if i mod 3=2 then write(i:3); *

A.In ra các số lẻ từ 1 đến 20; B. In ra các số chẵn từ 1 đến 20; C. In ra các số chia hết cho 3 từ 1 đến 20; D. In ra các số chia hết cho 3 dư 2 từ 1 đến 20;

3, Trong câu lệnh lặp For i:=3 to 15 do s:=s+i; Có bao nhiêu vòng lặp? *

A. 15; B. 12; C. 13 D. 3;

4, Cho k,m,n nhận giá trị tương ứng 4,5,6; kết thúc câu lệnh sau:X:=n; If ((x mod 2=0)) or (x<=5) then x:=m*k else x:=m div k; thì x có giá trị là ? *

A. 1 B. 0 C. 5. D. 20 5, Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?s:=0; n:=0; while s<=5 do n:= n+1;s:= s+n; * A. 3 B. 6 C. 10 D. kết quả khác 6, Cho a,b,c lần lượt nhận giá trị 10,30,20 . Hỏi sau đoạn chương trình Begin X:=a; If x>a then x:=a; if x>b then x:=b;if x>c then x:=c;end; x có giá trị là? * A. 20 B. 10 C. 30 D. Cả ba đáp án đều sai. 7, Cho x:=7; kết thúc câu lệnh If ((x mod 3=0)) and (x<=8) then x:=x+10; thì x có giá trị là ? * A. 8 B. 10 C. 17 D. 7 8, Cho s và i là biến nguyên. Khi chạy đoạn chương trình s := 1; for i:=1 to 5 do s := s+i; Kết quả in lên màn hình là của s là ? * A. 15 B. 16 C. 11 D. 22 9, Cho biết đoạn chương trình Pascal sau đây, khi kết thúc giá trị của S bằng bao nhiêu? S:=0; n:=0;while S<=3 do begin n:= n+1;S:= s+n; end; * A. 15 B. 10 C. 6 D. 3
1
10 tháng 12 2020

1. C

2. D

3. C

4. D

5. D

6. B

7. D

8. B

9. C

 

26 tháng 2 2022

Sai

2 tháng 4 2019

program crtg;

uses crt;

var n,i, j: integer;

A: array[1..1000] of byte;

tb: integer;

min,max: byte;

begin

clrscr;

writeln('Nhap do dai day A: '); read(n);

writeln('Nhap cac phan tu cua day: ');

for i:=1 to n do

begin

writeln('a[',i,'] = ');

repeat

read(a[i]);

until a < 100;

end;

for i:= 1 to n do

begin

if a[i] <> 1 then

begin

j:= 2;

while (a[i] mod j <> 0) do j:=j+1;

if j = a[i] then write(a[i]',');

end;

end;

tb:=0;

for i:=1 to n do

tb:=tb+a[i];

tb:=tb/n;

writeln('Gia tri trung binh cua day tren la: ',tb);

max:=a[1]; min:=a[1];

for i:=2 to n do

begin

if a[i] < min then min:=a[i];

if a[i] > max then max:=a[i];

end;

writeln('Gia tri lon nhat cua day la ',max);

writeln('Gia tri nho nhat cua day la ',min);

readln

end.

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long x,n;

int main()

{

cout<<x<<n;

cout<<pow(x,n);

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,ln;

int main()

{

ln=LLONG_MIN;

cin>>n;

for (i=1; i<=n; i++)

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}

11 tháng 4 2019

Bạn ơi câu b điều kiện bạn cho là \(0\le n\le10\) sao lại thêm 1 điều kiện nữa là x>0

11 tháng 4 2019

chắc là x \(\in\) N* ạ