Nhập vào từ bàn phím số nguyên dương A, B (1<=A,B<=10000). Xuất ra màn hình các kết quả sau đây: + Dòng 1: Ước chung lớn nhất của A+B và AB + Dòng 2: Số dư khi chia AB cho A+B
Những câu hỏi liên quan
Hãy viết chương nhập vào 1 dãy N số nguyên từ bàn phím ( N là Nguyên dương được nhập từ bàn phím vào N>10) . Tính và in ra màn hình trung bình của các số
program trungbinh;
uses crt;
var n,i: integer;
s:real;
A: array[1..1000] of integer;
begin
clrscr;
write('Nhap do dai day: '); readln(n);
writeln('Nhap gia tri cua day: ');
S:=0;
for i:=1 to n do
begin
write('A[',i,']= ');
readln(A[i]);
S:=S+A[i];
end;
S:=S/n;
write('Trung binh cua cac so cua day do la: ',S);
readln;
end.
Đúng 0
Bình luận (0)
Phần tự luận
Viết thuật toán nhập vào từ bàn phím số nguyên dương N. Tính và đưa ra tổng:
a, Các số từ 1 đến N.
b. Các số lẻ từ 1 đến N
Phần a (1,5 đ)
| Bước 1: Nhập số nguyên dương N | 0,25 |
|---|---|
| Bước 2: S ←0; i ←1 | 0,25 |
| Bước 3: Nếu i> N thì đưa ra tổng S và kết thúc. Ngược lại sang bước 4 | 0,5 |
| Bước 4: S ←S+i | 0,25 |
| Bướ c 5: i ← i+1 quay lại bước 3 | 0,25 |
Phần b (1 đ)
| Bước 1: Nhập số nguyên dương N | 0,125 |
|---|---|
| Bước 2: S←0; i←1 | 0,125 |
| Bước 3: Nếu i> N thì đưa ra tổng S và kết thúc. Ngược lại sang bước 4 | 0,125 |
| Bước 4: S←S+i | 0,125 |
| Bướ c 5: i← i+2 quay lại bước 3 |
Đúng 0
Bình luận (0)
Viết chương trình nhập vào từ bàn phím số nguyên dương n(n
Viết chương trình nhập vào từ bàn phím số nguyên dương n(n
Bài 4: Lập trình nhập vào từ bàn phím số nguyên dương N (N
2: Viết chương trình nhập vào từ bàn phím số nguyên dương N (N
Viết chương trình nhập vào 100 số nguyên dương từ bàn phím. In ra màn hình các số vừa nhập.
Xem chi tiết
uses crt;
var a:array[1..100]of integer;
i:integer;
begin
clrscr;
for i:=1 to 100 do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Đúng 2
Bình luận (0)
Nhập vào từ bàn phím dãy A gồm N số nguyên (1<N<255)
1. in dãy vừa nhập râ màn hình
2. cho biết chỉ số mà số hạng dương đầu tiên trong dãy
uses crt;
var a:array[1..255]of integer;
i,n,vt:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<n) and (n<=255);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
vt:=n;
for i:=n downto 1 do
if a[i]>0 then
begin
if vt>i then vt:=i;
end;
if (vt=n) and (a[n]<=0) then writeln('Trong day khong co so duong')
else writeln('Chi so so hang duong dau tien trong day la: ',vt);
readln;
end.
Đúng 0
Bình luận (0)
a) Viết chương tình nhập vào từ bàn phím mảng A gồm n số nguyên.In ra màn hình số nguyên lớn nhất
b) Viết chương trình nhập vào từ bàn phím mảng B gồm n số nguyên.In ra màn hình số nguyên bé nhất
a)
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;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Đúng 0
Bình luận (0)
b)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
a, Viết chương trình pascal nhập vào một dãy số nguyên n từ bàn phím b, in dãy vừa nhập ra màn hình. c, đếm xem bao nhiêu số dương. d, in kết quả số dương ra màn hình.
Program HOC24;
var a: array[1..32000] of integer;
i,n,d: integer;
begin
write('Nhap N: ');
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Day vua nhap la: ');
for i:=1 to n do write(a[i],' '); writeln;
d:=0;
for i:=1 to n do if a[i]>0 then d:=d+1;
write('Co ',d,' so duong');
readln
end.
Đúng 0
Bình luận (0)