Viết chương trình tìm đoạn con dài nhất chia hết cho k
Những câu hỏi liên quan
Cho dãy số nguyên n phần tử ( n > 100)
- Tìm đoạn con liên tục dài nhất chứa các số bằng nhau
- Tìm đoạn con liên tục tăng dần
- Tìm đoạn con liên tục giảm dần
- Tìm đoạn con dài nhất chia hết cho k
Xem chi tiết
viết chương trình tìm số nguyên dương a nhỏ nhất sao cho a^a chia hết cho n
Cho mảng A có n phần tử dùng chương trả con thực hiện một số yêu cầu như sau: 1. Viết chương trình nhập mảng A 2. Tính tổng số chẵn, lẻ 3. Tính có bao nhiêu phần tử chia hết cho k.
Viết chương trình nhập vào 3 số nguyên m,n,k (m<n).Đếm các số nguyên chia hết cho k trong đoạn [m,n]
Mn giúp e với ạ😭 e cảm ơn nhìu ạ
mn giúp mình với ạ
Viết chương trình nhập vào ba số nguyên A, B và K (A < B). In ra màn hình các số chia hết cho K trong đoạn [A; B].
giải bằng C++ ạ
#include <bits/stdc++.h>
using namespace std;
int main()
{
int a,b,k;
cin>>a>>b>>k;
for (int i=a; i<=b; i++)
if (i%k==0) cout<<i<<" ";
return 0;
}
Đúng 0
Bình luận (0)
Bài 1: Viết chương trình nhập số nguyên dương n. Tính tổng các số chẫn chia hết cho 3 nhỏ hơn hoặc bằng n
Bài 2: Viết chương trình nhập vào 3 số nguyên dương a, b, c. Tìm ước chung lớn nhất của 3 số
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 6=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var a,b,c,ucln,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
ucln:=a;
while ucln<>c do
begin
if ucln>c then ucln:=ucln-c
else c:=c-ucln;
end;
writeln(ucln);
readln;
end.
Đúng 1
Bình luận (0)
Scratch hay java
Viết chương trình nhập vào một dãy số nguyên, tìm số lớn nhất, số nhỏ nhất, các số chia hết cho 2, và tổng các phần tử trong dãy ạ?
var a:[array] of integer;
i,n,max,min,s:integer;
begin
write('Nhap so luong so n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
max:=a[1];
min:=a[1];
s:=0;
for i:=1 to n do
begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
s:=s+a[i];
end;
writeln('So lon nhat la ',max);
writeln('So nho nhat la ',min);
writeln('Tong cac phan tu trong day la ',s);
writeln('Cac so chia het cho 2 la: ');
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i],' ');
readln;
end.
Đúng 3
Bình luận (0)
cho đoạn chương trình sau hãy viết chương trình pascal cho đoạn chương trình
J:=1;k:=2;i:=0;
Whilei<5 do
begin
I:=i+1; J;=J+1; K:=K+J
End;
writel(j,k);
Viết chương trình nhập vào 1 dãy số nguyên ,tìm số nguyên ,tìm số lớn nhất ,số nhỏ nhất ,các số chia hết cho 2,và tổng của các phần tử trong dãy?( giúp mình với).
uses crt;
var a:array[1..100]of integer;
i,n,t,ln,nn:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
ln:=a[1];
nn:=a[1];
t:=0;
for i:=1 to n do
begin
if ln<a[i] then ln:=a[i];
if nn>a[i] then nn:=a[i];
t:=t+a[i];
end;
writeln(ln);
writeln(nn);
writeln(t);
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
var n,i,max,min,s: integer;
a: array[1..100] of integer;
begin
readln(n);
for i:=1 to n do begin
readln(a[i]);
s:=s+a[i];
end;
max:=a[1]; min:=a[1];
for i:=2 to n do begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('MAX=',max,' | MIN=',min);
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); writeln;
write('Tong = ',s);
readln
end.
Đúng 1
Bình luận (0)