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.
Var s,i:integer;
Begin
s:=0;
i:=0;
While S<1000 do
Begin
i:=i+1;
s:=s+i;
End;
Write('n la ',i);
Readln;
End.
Câu 3:
Var i,n:integer:
Begin
Write('n = ');readln(n);
Write('Cac uoc cua n la ');
For i:=1 to n do
If n mod i = 0 then write(i:8);
Readln
End.
Câu 4
Var i,n:integer:
Begin
Write('n = ');readln(n);
Write('Cac so le nho hon n la ');
For i:=1 to n - 1 do
If i mod 2 <> 0 then write(i:8);
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:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
1:
#include <bits/stdc++.h>
using namespace std;
long long dem,i,n,x;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%3==0) t+=x;
}
cout<<t;
return 0;
}
câu 1)ar i,max,maxnhi,n:integer;
a:array[1..100] of integer;
begin
repeat
write('n=');readln(n);
until (n>1) and (n<40)
for i:=1 to n do begin
write('So thu ',i,': ');readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
maxnhi:=a[1];
for i:=1 to n do
if (a[i]>maxnhi) and (a[i]<max) then maxnhi:=a[i];
write(' So lon thu 2 la: ',maxnhi);
readln;
end.
bạn làm vậy sau while s >= 1000000 mất r bạn ơi
uses crt;
var s,n:int64;
begin
clrscr;
s:=0;
n:=0;
while s<1000000 do
begin
n:=n+1;
s:=s+n;
end;
writeln(n);
readln;
end.