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
22 tháng 3 2021
Câu 1:
Dùng for..do
uses crt;
var a,i:integer;
begin
clrscr;
a:=0;
for i:=1 to 100 do
if i mod 2=0 then a:=a+i;
writeln(a);
readln;
end.
Dùng While...do
uses crt;
var a,i:integer;
begin
clrscr;
a:=0;
i:=1;
while i<=100 do
begin
if i mod 2=0 then a:=a+i;
inc(i);
end;
writeln(a);
readln;
end.
31 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
31 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long x,i,n,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
H9
HT.Phong (9A5)
CTVHS
9 tháng 3 2023
Uses crt;
var i,n: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2<>0) then writeln(i);
readln;
end.
31 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
int n,i,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
TN
3
BA
17 tháng 7 2021
Bài 4
uses crt;
var a,b: integer;
c,s,d:real;
begin
clrscr;
readln(a,b);
if (a>0) and (b>0) then
begin
c:=sqrt(a*a+b*b);
d:=(a+b+c)/2;
s:=sqrt(d*(d-a)*(d-b)*(d-c));
writeln(c:4:2,' ',s:4:2);
end
else writeln('nhap lai');
readln
end.
BA
17 tháng 7 2021
Bài 5
uses crt;
var r: integer;
s,t: real;
begin
clrscr;
readln(r);
s:=r*r*3.14;
t:=2*3.14*r;
writeln(s:4:2,' ',t:4:2);
readln
end.
lx :))))
mình ko thấy đề bài