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;
}
9 tháng 11 2021
thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko
9 tháng 11 2021
mik gõ r mà mik chắc chắc 100% mật khẩu đó đúng . À mà mik lấy nick em mik vào trang của mik thì nó để là Nick đã bị đổi chủ! !
6 tháng 5 2023
chắc là sửa lỗi nhỉ
dòng 11: thiếu ''[i]''
=> Readln(A[i]);
dòng 16: sai ở dấu ''<>'', dư cặp dấu ngoặc đơn và thiếu ''[i]''
=> If A[i] mod 2=0 then Tong:=Tong+A[i];
Dư cụm Begin .... End; ở dòng 15 và 17
mình nghĩ còn sai ở khai báo ''tong''(sửa thành ''Tong'') và lệnh clrscr; ở dòng 9(vì mình thấy thường nó ở đầu phân thân). Mình chỉ nghĩ thôi ko rõ(mình nghĩ thế do lúc học toàn ghi thế à), mà bài tập này là bạn phải viết trên máy mà
14 tháng 2 2017
program Hien_thi;
uses crt;
var n,i:longint;
begin
clrscr;
writeln('nhap so tu nhien n'); readln(n);
for i:=1 to n do
if n mod i=0 then writeln('Uoc cua n la',n/i:0:0);
readln
end.
16 tháng 3 2017
Program tim_uoc;
Uses crt;
Vả i,N:integer;
Begin
Clrscr;
Writeln('Nhap gia tri N:');Readln(N);
For i:=1 to N do
If N mod i =0 then writeln(i,'la uoc cua N);
Readln
End.
a) ((a + b)*(c - d) + 6)/3 - a
b) 15*a - 30*b + 12
c) x/3 - 2*a + 1/x
d) 1 + 1/(x*x) + 1/(y*y) + 1/(z*z)