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.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
if (a[i]%2!=0) dem++;
cout<<dem;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) dem++;
cout<<dem;
return 0;
}
Uses crt;
Var n,i,a : integer;
Begin
a:=0;
Write('nhap n'); readln(n);
For i:=1 to n do
If (i mod 3= 0) then inc(a);
Writeln('so so chia het cho 3 la',a);
Readln
End.
program oken;
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('nhap so n: '); readln(n);
for i:=1 to n do
if (i mod 3=0) then
begin
write(i,' ');
dem:=dem+1;
end;
writeln;
if dem=0 then
writeln('tu 1 den ',n,' khong co so chia het cho 3.')
else
writeln('co ',dem,' so chia het cho 3.');
readln;
end.
Uses crt;
Var n,i,a : integer;
Begin
a:=0;
Write('nhap n'); readln(n);
For i:=1 to n do
If (i mod 3= 0) then inc(a);
Writeln('so so chia het cho 3 la',a);
Readln
End.
program oken;
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('nhap so n: '); readln(n);
for i:=1 to n do
if (i mod 3=0) then
begin
write(i,' ');
dem:=dem+1;
end;
writeln;
if dem=0 then
writeln('tu 1 den ',n,' khong co so chia het cho 3.')
else
writeln('co ',dem,' so chia het cho 3.');
readln;
end.
Program Hinh_tron;
Uses crt;
Var r,dt:real;
Begin
clrscr;
Writeln(' Nhap ban kinh hinh tron:');
Readln(r);
dt:= r*r*3.14;
Writeln('Dien tich hinh tron la:',dt);
Readln;
End.
var a:array[1..32000] of integer;
i,n,T,S:integer;
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
T:=0;
for i:=1 to n do if a[i] mod 2=0 then T:=T+a[i];
writeln('tong cac so chan la:',T);
S:=0;
for i:=1 to n do if a[i]<0 then S:=S+a[i];
writeln('tong cac so am la:',S);
readln
end.
uses crt;
var i,t,a:integer;
begin
clrscr;
a:=0; t:=0;
for i:=1 to 100 do
begin
t:=t+a;
a:=a+2;
end;
writeln('Tong cua 100 so tu nhien chan dau tien la: ',t);
readln;
end.
tổng 100 số tự nhiên chẵn đầu tiên chứ ko phải tổng các số chẵn từ 1 đến 100
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a-b;
return 0;
}
Mình viết phần thân thôi nha
n khai báo là interger
n:=0;
While n<>100 do
Begin
Write(n,' ');
inc(n);
end;
PROGRAM LOSER;
USES crt;
VAR
i:Bytbe;
BEGIN
clrssr ();
i:=1;
while i <100 do
BEGIN
write('',i);
i:=i+1;
End;
Readln;
END.
( uy tín chạy được em nha)