Cho dãy số n được nhập vào từ bàn phím . Viết chương trình tính và in ra màn hình A, đếm các số chẵn B tim gtln của dãy số C tìm Gtln của dãy số
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.
25 tháng 4 2023
chọn Home > Chọn Replace hoặc nhấn Ctrl + H > Nhập từ, cụm từ muốn tìm để thay thế > Nhập từ, cụm từ để thay thế từ tìm được > Nhấn Find Next, Replace hoặc Replace All để tìm và thay thế từ bạn muốn.
ND
1
25 tháng 4 2023
program KiemTraChiaHet;
var a, b: integer;
begin
write('Nhap vao a: ');
readln(a);
write('Nhap vao b: ');
readln(b);
if a mod b = 0 then
writeln(a, ' chia het cho ', b)
else
writeln(a, ' khong chia het cho ', b);
readln;
end.
LT
25 tháng 4 2023
Tham khảo
- Bước 1. Chọn Tập tin rồi chọn Lưu trữ
- Bước 2. Chọn nơi lưu, đặt tên Bản nhạc muốn lưu rồi nhấn Save
program Tinh_Day_So;
var
n, i, x, dem: integer;
max, a: integer;
begin
write('Nhập số ptử của dãy: ');
readln(n);
writeln('Nhập các ptu của dãy:');
for i := 1 to n do
begin
readln(x);
a := a + x;
if x mod 2 = 0 then
dem := dem + 1;
if x > max then
max := x;
end;
writeln('Tổng dãy là: ', a);
writeln('Số ptu chẵn là: ', dem);
writeln('Gtln của dãy là: ', max);
end.