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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
DW
19 tháng 11 2016
Mỗi lần đc một bạn khác tick đúng sẽ đc 1 SP
Còn nếu đc GVQL tick thì sẽ đc 1 GP
27 tháng 6 2023
Python:
n=int(input("Nhap so nguyen duong n:"))
dem=0
for i in range(1,n+1):
if i%4==0:
dem=dem+1
print(dem)
19 tháng 6 2020
const fi='so.equ';
fo='soam5.equ';
var f1,f2:text;
i,n:integer;
a:array[1..100]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
for i:=1 to n do
if (a[i]<0) and (a[i] mod 5=0) then write(f2,a[i]:4);
close(f1);
close(f2);
end.
ML
8 tháng 12 2019
program hotrotinhoc;
var i,n: byte;
t: longint;
a: array[1..150] of integer;
begin
write('n='); readln(n);
t:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if (a[i] mod 3=0) and (a[i] mod 5=0) then t:=t+a[i];
end;
writeln('Cac phan tu le trong mang : ');
for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');
writeln;
write('Tong phan tu chia het cho 3 va 5 la :',t);
readln
end.
8 tháng 12 2019
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------xu-ly------------------------}
writeln('cac so le trong day la: ');
for i:=1 to n do
if a[i] mod 2=1 then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if (a[i] mod 3=0) and (a[i] mod 5=0) then t:=t+a[i];
writeln('tong cac phan tu chia het cho 3 va chia het cho 5 la: ',t);
readln;
end.
BA
30 tháng 12 2019
if a+b<>0 then write(sqrt(a+b));
if a+b=0 then writeln(-(sqrt(a+b)));
if a+b<0 then writeln( sqrt(a+b));
k chắc nữa
21 tháng 12 2018
var
a,b:array[1..100] of integer;
i,n,m,k:interger;
begin
readln(n);write('nhap diem tb');readln(m);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i]>m then d:=d+1;
write('co',d,'ban hon so diem tb');k:=1
readln
end.
24 tháng 2 2022
#include <bits/stdc++.h>
using namespace std;
double a[100];
int i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
for (i=1; i<=n; i++)
swap(a[i],a[n+1-i]);
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
24 tháng 2 2022
bn ơi bn làm bằng pascal đc ko ạ, mik cần cả hai cái lun