For i:= 1 to 30do x:=x 3

NT

Nguyễn Thuỳ Linh

2 tháng 5 2021

For i:= 1 to 30do x:=x+3 ; y:=y-x ; a) Vòng lặp với số lần biết trước trên chạy bao nhiêu vòng ? b) Giá trị đầu là gì ? c) Giá trị cuối là gì ? d) Câu lệnh của câu lệnh lặp với số lần biết trước là gì ? e) Tính giá trị của biến x và y , nếu biết trước giá trị của x và y?

#Tin học lớp 8

4

NL

Nguyễn Lê Phước Thịnh

2 tháng 5 2021

a) Chạy 30 vòng

Đúng(0)

NL

Nguyễn Lê Phước Thịnh

2 tháng 5 2021

b) Giá trị đầu là 1

Đúng(0)

H

HuyNoPro

18 tháng 2 2021

Cho các câu lệnh sau chỉ ra câu lệnh đúng:

A: for i:=1 to 10; do x:=x+1;

B: for i:=1 to 10 do x:=x+1;

C: for i:=10 to 1 do x:=x+1;

D: for i=10 to 1 do x:=x+1;

#Tin học lớp 8

4

H

Hquynh

18 tháng 2 2021

Cho các câu lệnh sau chỉ ra câu lệnh đúng:

A: for i:=1 to 10; do x:=x+1;

B: for i:=1 to 10 do x:=x+1;

C: for i:=10 to 1 do x:=x+1;

D: for i=10 to 1 do x:=x+1;

Đúng(1)

MC

Minh Cao

18 tháng 2 2021

Cho các câu lệnh sau chỉ ra câu lệnh đúng:

A: for i:=1 to 10; do x:=x+1;

B: for i:=1 to 10 do x:=x+1;

C: for i:=10 to 1 do x:=x+1;

D: for i=10 to 1 do x:=x+1;

Đúng(0)

3L

37 Lê Huỳnh Thiên Long

30 tháng 5 2022

Câu 1: Câu lệnh lặp nào bên dưới có dạng đúng?

A. For i= 1 to 10 do writeln(‘A’);

B. For i:=1.5 to 10.5 do writeln(‘A’);

C. For i:= 1 to 10 do writeln(‘A’);

D. For i:=100 to 1 do writeln(‘A’);

E. x:=10; While x=10 do x=x+5;

F. x:=10; While x=10 to x:=x+5;

G. x:=10 While x=10 do x:=x+5;

H. x:=10; While x=10 do x:=x+5;

#Tin học lớp 8

2

TL

Tai Lam

30 tháng 5 2022

C, F?

Đúng(0)

KV

Kiều Vũ Linh

31 tháng 5 2022

C

Đúng(0)

KS

Kawari Sugou

12 tháng 5 2020

Tìm ra chỗ sai:

a)For i:=10 to 1 do x:=x+1

b)For i:=1 to 5,5 do x:=x+1

c)Var i: real

Begin for i:=1 to n do x:=x+1 end;

#Tin học lớp 8

1

ML

Minh Lệ

12 tháng 5 2020

a)For i:=10 to 1 do x:=x+1

---> Lỗi : giá trị đầu lớn hơn giá trị cuối

b)For i:=1 to 5,5 do x:=x+1

---> Lỗi : Giá trị cuối không phải là kiểu dữ liệu số thực. (biếm đếm, giá trị đầu và giá trị cuối bắt buộc phải là kiểu dữ liệu số nguyên)

c)Var i: real

Begin for i:=1 to n do x:=x+1 end;

---> Lỗi : Biến i phải khai báo sai kiểu dữ liệu.( Biến i phải thuộc dữ liệu số nguyên vì i là biến đếm)

Đúng(0)

XL

Xerx Lugner

9 tháng 4 2020

Các câu lệnh Pascal sau đúng hay sai, chỉ ra chỗ sai (nếu có)
a/ For i:=1 to 10; do x:=x+1;
b/ For i:=10 to 1 do x:=x+1;
c/ For i:= 1 to 10 do x:=x+1;

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

9 tháng 4 2020

Câu lệnh mà bạn

Chừng nào mà đề bài là Chương trình sau thiếu cái gì thì mới thiếu chưa khai báo biến

Đúng(0)

NL

Nguyễn Lê Phước Thịnh

9 tháng 4 2020

a) Sai vì có dấu ; giữa số 10 và chữ do

b) Sai vì thiếu chữ down

c) Đúng

Đúng(0)

KQ

Khắc Quân Hoàng

22 tháng 2 2022

Các câu lệnh sau trong Pascal sau có hợp lệ không? Nếu không hãy sửa lại cho hợp lệ?

a) For i:= 50 to 10 do writeln(‘A’);

b) For i:= 1.5 to 5.5 do Writeln(‘A’);

c) X:= 3; while X:=3 do X= X + 1;

d) X:= 5; while X =5 do; X:= X + 2;

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

22 tháng 2 2022

a: Không hợp lệ

Sửa lại: for i:=50 downto 10 do writeln('A');

b: Không hợp lệ

Sửa lại: for i:=1 to 5 do writeln('A');

c: Không hợp lệ

x:=3;

while x<=3 do

x:=x+1;

d: Không hợp lệ

Sửa lại: x:=5;

while x<=5 do

x:=x+2;

Đúng(1)

NT

nguyễn tiến thành

31 tháng 1 2023

x = 20;

for i := 1 to 4 do x := x -3;

xác định:

số vòng lặp = ?

x = ?

#Tin học lớp 8

1

ML

Minh Lệ

31 tháng 1 2023

Số vòng lặp: 4

x = 20-3-3-3-3=8

Đúng(2)

NL

Nguyễn Lê Phước Thịnh

21 tháng 7 2021

Câu hỏi hay

ĐÁP ÁN VÒNG 2 CUỘC THI TIN HỌC LẦN 3:Câu 1(2 điểm)uses crt;var a:array[1..100000]of int64;i,n,x,dem:int64;beginclrscr;readln(n,x);for i:=1 to n doread(a[i]);dem:=0;for i:=1 to n doif x=a[i] then inc(dem);writeln(dem);readln;end.Câu 2(2 điểm)uses crt;var n,k,i,dem:int64;a:array[1..1000000]of int64;{-----------------chuong-trinh-con-quick-sort------------------------}procedure qs(d,c:int64);var i,j,x,tam:int64;begini:=d;j:=c;x:=a[(i+j) div 2];repeatwhile a[i]<x doinc(i);while a[j]>x dodec(j);if...

Đọc tiếp

ĐÁP ÁN VÒNG 2 CUỘC THI TIN HỌC LẦN 3:

Câu 1(2 điểm)

uses crt;

var a:array[1..100000]of int64;

i,n,x,dem:int64;

begin

clrscr;

readln(n,x);

for i:=1 to n do

read(a[i]);

dem:=0;

for i:=1 to n do

if x=a[i] then inc(dem);

writeln(dem);

readln;

end.

Câu 2(2 điểm)

uses crt;

var n,k,i,dem:int64;

a:array[1..1000000]of int64;

{-----------------chuong-trinh-con-quick-sort------------------------}

procedure qs(d,c:int64);

var i,j,x,tam:int64;

begin

i:=d;

j:=c;

x:=a[(i+j) div 2];

repeat

while a[i]<x do

inc(i);

while a[j]>x do

dec(j);

if i<=j then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

inc(i);

dec(j);

end;

until i>j;

if d<j then qs(d,j);

if i<c then qs(i,c);

end;

{---------------chuong-trinh-chinh------------------}

begin

clrscr;

readln(n);

for i:=1 to n do

read(a[i]);

qs(1,n);

k:=a[n];

dem:=0;

for i:=1 to n do

if k=a[i] then inc(dem);

writeln(dem);

readln;

end.

Câu 3(2 điểm) Bài làm của bạn Hưng Nguyễn Thái

var a,b,c:int64;

begin

read(a,b,c);

if (a+b <= c) and ((c-a-b) mod 2 = 0) then write('Yes')

else write('No');

end.

Câu 4(6 điểm) Bài làm của bạn Quý Lương

#include<bits/stdc++.h>
#define ll long long
using namespace std;
int main()
{
ios_base::sync_with_stdio(false); cout.tie(NULL);
ll n, k;
cin>>n>>k;
ll d=__gcd(n, k);
n/=d; k/=d;
cout << n/k << '.';
n=n%k*10;
ll s=0, t=k;
for (s; t%2==0 or t%5==0; s++) {
if (t%2==0) t/=2;
if (t%5==0) t/=5;
}
for (s; s>0; s--) {
cout << n/k;
n=(n%k) * 10;
}
if (t==1) cout << "(0)";
else {
ll r =10%t;
for (s=1; r!=1; s++) r=r*10 % t;
cout << '(';
for (s; s>0; s--) {
cout << n/k;
n=(n%k)*10;
}
cout << ')';
}
}

Câu 5(8 điểm) Bài làm của bạn Trần Nguyễn Đăng Dương

#include <bits/stdc++.h>
using namespace std;
int n;
long long a[100001];
long long f[100001];
void ans(long long x)
{
int dem=1;
for (long long i=2;i*i<=x;i++)
if (x%i==0)
{
f[dem]=i;
if (i!=sqrt(x))
{
f[dem+1]=x/i; dem+=2;
}
else dem++;
}
f[dem]=x;
sort(f+1,f+dem);
for (int i=1;i<=dem;i++) cout<<f[i]<<endl;
}
int main()
{
ios_base::sync_with_stdio(false);
cin.tie(nullptr); cout.tie(nullptr);
cin>>n;
for (int i=1;i<=n;i++) cin>>a[i];
long long gcd=abs(a[2]-a[1]);
for (int i=3;i<=n;i++)
gcd=__gcd(gcd,abs(a[i]-a[i-1]));
ans(gcd);
}

#Tin học lớp 10

5

MR

M r . V ô D a n h

21 tháng 7 2021

dàiiiiiiiiiiiiiiiiiiiiiiiiiii

Đúng(0)

弃佛入魔

21 tháng 7 2021

cmt đầu có được fan cứng không

Đúng(0)

VT

Võ Thành Ty

13 tháng 5 2019

Trong các câu lệnh Pascal sau đây, câu lệnh nào sai và sai ở đâu?

1) While i:=1 do t:=10;

2) For i:=1 to 10 do x:=x+1;

3) For i:=1 to 10 ; do x:=x+1;

4) i:=1; while i<10 do sum:=sum+i; i:=i+1;

#Tin học lớp 8

1

ML

Minh Lệ

13 tháng 5 2019

Lời giải :

Lỗi sai = ( )

1) While i(:)=1 do t:=10;

3) For i:=1 to 10 (;) do x:=x+1;

4) i:=1; while i<10 do sum:=sum+i; i:=i+1; ( câu lệnh này vẫn chạy được nhưng phải đặt trong begin...end;)

i:=1; while i<10 do ( begin) sum:=sum+i; i:=i+1; (end; )

Đúng(0)

NC

Nguyễn Cảnh Hùng

30 tháng 7 2019

Sau khi thực hiện đoạn chương trình Pascal :

X:=3

For i : = 1 to 3 do

x : = x - 1

X sẽ nhận được giá trị nào dưới đây ?

A. – 1;

B. 1 ;

C. -4 ;

D. 0 ;

#Tin học lớp 8

1

DN

Đỗ Ngọc Trinh

30 tháng 7 2019

Đáp án D

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP