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.
1. uses crt;
var a,vt:array[1..100]of integer;
n,i,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>=0;
end;
t:=0;
for i:=1 to n do
begin
if t<100 then
begin
t:=t+a[i];
dem:=dem+1;
vt[dem]:=i;
end;
end;
writeln(vt[dem]);
readln;
end.
Câu 2:
uses crt;
var a:array[1..30]of integer;
i,n,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
kt:=0;
for i:=1 to n-1 do
if a[i]>=a[j] then kt:=1;
if kt=0 then writeln('Day la day so khong giam')
else writeln('Day khong la day so khong giam');
readln;
end.
Câu 1:
s=0; i=0
Vòng lặp thứ 1: i<3 -> đúng -> i=i+1=0+1=1; s=s+i*i=0+1*1=1
Vòng lặp thứ 2: i<3 -> đúng -> i=i+1=1+1=2; s=s+i*i=1+2*2=5
Vòng lặp thứ 3: i<3 -> đúng -> i=i+1=2+1=3; s=s+i*i=5+3*3=14
Vòng lặp thứ 4: i<3 -> sai -> không thực hiện vòng lặp -> kết thúc vòng lặp
Vậy kết quả S in ra màn hình là 14
#include <bits/stdc++.h>
using namespace std;
long long i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) if (i%2==0) cout<<i<<" ";
return 0;
}
Var n,i,so:integer;
Begin
Write('Nhap n = ');readln(n);
Writeln('Cac so chan tu 1 den n la: ');
For i:=1 to n do
If i mod 2 = 0 then write(i,' ');
Readln;
End.
Đáp án D