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
Mọi người giúp mình nhé., mình đang cần gấp ạ(viết chi tiết từng hình ra ạ)
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.