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.

#include <bits/stdc++.h>

using namespace std;

long long a,b;

//chuongtrinhcon

long long ucln(long long a,long long b)

{

if (b==0) return(a);

else return(ucln(b,a%b));

}

//chuongtrinhchinh

int main()

{

cin>>a>>b;

cout<<ucln(a,b);

return 0;

}

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do t:=t+i;

writeln(t);

readln;

end.

Câu 15. Trong câu lệnh lặp for i:=2 to 100 do begin  end; câu lệnh ghép được thực hiện bao nhiêu lần (hay bao nhiêu vòng lặp được thực hiện)?A. 102             B. 101                         C. 100             D. 99Câu 16. Xem ví dụ sau trong pascal:Uses crt; Var i:integer;       Begin            Clrscr; I:=1; while i < 14 do begin Writeln(‘0’); i := i+1; End; Readln; End.Ví dụ trên ghi ra màn hình bao nhiêu chữ số 0?A. 14;              B. 13;              C....
Đọc tiếp

Câu 15. Trong câu lệnh lặp for i:=2 to 100 do begin  end; câu lệnh ghép được thực hiện bao nhiêu lần (hay bao nhiêu vòng lặp được thực hiện)?

A. 102             B. 101                         C. 100             D. 99

Câu 16. Xem ví dụ sau trong pascal:

Uses crt; Var i:integer;       

Begin

            Clrscr; I:=1; while i < 14 do begin Writeln(‘0’); i := i+1; End; Readln; End.

Ví dụ trên ghi ra màn hình bao nhiêu chữ số 0?

A. 14;              B. 13;              C. 15;                          D. 16;

Câu 17. điều kiện trong câu lệnh lặp với số lần chưa biết trước thường là :

A. Phép gán    B. Câu lệnh đơn          C. Câu lệnh ghép        D. Phép so sánh

Câu 18. câu lệnh lặp For i:=1 to 5 do Writeln(‘Day la lan lap thu ‘,i); sẽ in ra màn hình 5 dòng chữ trong đó dòng thứ 3 có nội dung là:

A. Day la lan lap thu i                         B. Day la lan lap thu, i

C. Day la lan lap thu 3                        D. Day la lan lap thu , 3

1

Câu 15: D

Câu 16: A 

Câu 17: D

Câu 18: C

uses crt;

var n,i,t:integer;

begin

n:=0;

t:=0;

repeat

n:=n+2;

t:=t+n;

until t>69;

writeln(n);

writeln(t);

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,n,t,t1,j,tam:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do t:=t+a[i];

t1:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then t1:=t1+a[i];

for i:=1 to n-1 do 

  for j:=i+1 to n do 

 if a[i]<a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln(t);

writeln(t1);

for i:=1 to n do write(a[i]:4);

readln;

end.

29 tháng 3 2022

tham khảo 

uses crt;

var i,n:integer;

begin

clrscr;

write('n='); readln(n);

writeln('cac so chan trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

if i mod 2=0 then write(i:4);

readln;

end

29 tháng 3 2022

tham khảo 

uses crt;

var i,n:integer;

begin

clrscr;

write('n='); readln(n);

writeln('cac so chan trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

if i mod 2=0 then write(i:4);

readln;

end

Cau 4:

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++) t+=i;

cout<<t;

return 0;

}

Câu 5: 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

i:=0;

while i<=100 do 

 begin

i:=i+1;

t:=t+i;

end;

writeln(t);

readln;

end.

29 tháng 3 2022

cíu mình điii

29 tháng 3 2022

giup minh voiii

 

#include <bits/stdc++.h>

using namespace std;

double x,ln;

int n,i;

int main()

{

cin>>n;

ln=0;

for (i=1; i<=n; i++)

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}