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.
uses crt;
var x,n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then t:=t+x;
end;
writeln(t);
readln;
end.
program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);
end.
Câu 1:
Program HOC24;
var i,n: integer;
t: longint;
write('Nhap N: '); readln(n);
t:=1;
for i:=1 to n do t:=t*i;
write(n,'! = ',t);
readln
end.
Cho biến i chạy từ 1 đến n. Xét i. Nếu nó là số hoàn chỉnh thì in ra.
Program Tim_uoc_2;
uses crt;
Var S, n, i,j: longint;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do if i mod j = 0 then S:=S+j;
if S = 2*i then write(i:6,',');
end;
readln
end.
uses crt;
var n,i,t,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
t:=0;
for j:=1 to i do
if i mod j=0 then t:=t+j;
if t=i then write(i:4);
end;
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<(a+b)*2<<endl;
cout<<a*b;
return 0;
}
uses crt;
var n,i,s:integer;
begin
clrscr;
n:=1;
s:=0;
repeat
s:=s+n;
n:=n+1;
until s>1000;
writeln(n);
readln;
end.
Program Tinh_Toan;
uses crt;
var a,b: real
begin
clrscr;
write('nhap so a ='); readln(a);
write('nhap so b='); readln(b);
writeln('tong cua 2 so ',a,' va ',b,' =' ,a+b);
writeln('hieu cua 2 so ',a,' va ',b,' =',a-b);
writeln('tich cua 2 so ',a,' va ',b,' =' ,a*b);
readln;
end.
1) var n,sum;
begin
while sum<=1000 do
begin
n:=n+1;
sum:=sum+n;
end;
write('n=',n);
end.
bài thi bên mình không readln đoạn cuối nha bạn, bạn muốn thì thêm vào nha
Câu 1
+ Dạng thiếu:
If <điều kiện> then <câu lệnh>;
vd: if (x mod 2)=0 then writeln(x,' la so chan');
+ Dạng đầy đủ:
If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
vd: if (x mod 2) =0 then writeln(x,' la so chan')
else writeln(x,' la so le');
Câu 1:
-Dạng thiếu:
if <điều kiện> then <câu lệnh>;
-Dạng đủ
if <điều kiện> then <câu lệnh 1>
else <câu lệnh 2>;
câu 2:
*Xác định bài toán
-input: dãy n số tự nhiên đầu tiên
-output: tổng các số chẵn trong dãy n số tự nhiên đầu tiên
*Mô tả thuật toán
-Bước 1: nhập n
-Bước 2: i:=0; t:=0;
-Bước 3: nếu i mod 2=0 thì t:=t+i;
-Bước 4: i:=i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất t;
-Bước 7: Kết thúc
Câu 3:
uses crt;
var diem:array[1..100]of integer;
t,i,n:integer;
tbc:real;
begin
clrscr;
write('nhap so luong mon hoc:'); readln(n);
for i:=1 to n do
begin
write('so diem mon thu ',i,' la: '); readln(diem[i]);
end;
{--------------------------xu-ly-------------------------}
t:=0;
for i:=1 to n do
t:=t+diem[i];
tbc:=t/n;
if tbc>=5 then writeln('dau')
else writeln('rot');
readln;
end.
uses crt;
var s,n:longint;
begin
clrscr;
s:=0;
n:=0;
while s<=100000 do
begin
n:=n+1;
s:=s+n;
end;
writeln('So n lon nhat de tong 1+2+3+...+n nho nhat lon hon 100000 la: ',n);
readln;
end.