Bt1: viết chương trình nhập vào 1 dãy số nguyên có N phần tử(N<=150). Đếm xem có bao nhiêu phần tử là bội của 3 và 5. Tính tổng các phần tử đó.
Bt2: viết chương trình nhập vào 1 dãy số nguyên có N phần tử (N<=150) và một số nguyên K tùy ý. Đếm xem có bao nhiêu phần tử bằng với K. In ra chỉ số các phần tử đó.
Giúp mik 2 bài này trong tối nay vs ạ Tks.
Bài 1:
Program HOC24;
var i,n,d : byte;
t: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then
begin
d:=d+1;
t:=t+a[i];
end;
writeln('Co ',d,' phan tu la boi cua 3 va 5');
write('Tong la: ',t);
readln
end.
Bài 2:
Program HOC24;
var i,n,k : byte;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
write('Nhap k: '); readln(k);
for i:=1 to n do if a[i]=k then d:=d+1;
writeln('Co ',d,' phan tu bang ',k);
Write('Cac chi so do la: ');
for i:=1 to n do if a[i]=k then write(i,' ');
readln
end.
Làm sao để làm hình này ạ?
Trong MSWlogo:
Cs Ht
Repeat 5[
Repeat 5[FD 50 RT 360/5]
Repeat 5[FD 25 LT 360/5]
RT 180-72 FD 50 RT 36 FD 25 LT 180-108]
RT 180-72 FD 50 RT 36 FD 25 LT 180-108]
Giúp mình câu 29 làm theo kiểu mảng giúp mình
29:
uses crt;
var n,i,j,kt:integer;
a:array[1..100]of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
Giúp mình câu 5 6 làm theo kiểu mảng giúp mình
quy luật dãy 1,2,4,5,7,8,10,11,14,16,17,... là như thế nào vậy?
Viết chương trình nhập vào một số n in ra màn hình tổng số n vừa nhập bằng câu lệnh lập While do
var n, sum : integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
while n > 0 do
begin
sum := sum + n;
n := n - 1;
end;
writeln('Tong la: ', sum);
end.
Cho tệp songuyen.ipn trên ổ đĩa máy tính.em hãy cho biết nên sử dụng mẫu câu lệnh nào để đọc lần lượt tầng số nguyên ra biến x
with open('songuyen.ipn', 'r') as f:
x = [ ]
for line in f:
x.append(int(line))
Viết chương trình nhập vào dãy n số nguyên ( n < 150 ) hãy in ra màn hình dãy vừa nhập và tính tổng các phần tử lẻ của dãy
n = int(input('Nhập n ( n < 150): '))
if n >= 150:
print('n phải nhỏ hơn 150')
else:
arr = [ ]
total = 0
# Nhập vào dãy số nguyên
for i in range(n):
arr.append(int(input('Nhập phần tử thứ ' + str(i+1) + ': ')))
# In dãy vừa nhập
print('Dãy vừa nhập là: ', end='')
for i in range(n):
print(arr[i], end=' ')
# Tính tổng các phần tử lẻ
for i in range(n):
if arr[i] % 2 != 0:
total += arr[i]
print('\nTổng các phần tử lẻ là:', total)
cho tệp songuyen.txt gồm n phần tử ,các số được nhập cách nhau một dấu cách.Tìm những số chẵn trong dãy số trên rồi ghi vào tệp ketqua.txt
with open('songuyen.txt', 'r') as f:
with open('ketqua.txt', 'w') as g:
for line in f:
numbers = line.split()
for number in numbers:
if int(number) % 2 == 0:
g.write(number + '\n')
