For i:=1 to 6 do write(i:3)

1. For I = 2 to 12 Do write ('O'), câu lệnh in ra bao nhiêu chữ O? 2. For I = 1 to 20 Do If (...) Then write (I,''); chỗ trống cần điền để liệt kê ra các SỐ LẺ từ 1 đến 20 là? 3. để tính tổng 1 + 2 + ... + 100 ta thực hiện For I = 1 to 100 Do S:=...... ... cần điền? 4. S;=0; For I:=4 to 12 Do If (I mod 12=1) Then S:=S +I; giá trị của S? 5. S;=0; For I:=1 to 5 Do S:=S +I; giá trị của S? 6. For I = 1 to 10 Do If (I mod 3 = 0) Then...

1

NL

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

13 tháng 3 2022

a: Có 6 vòng lặp

b: i=6

c: Kết quả là in ra các số từ 1 đến 6, giữa hai số có 3 dấu cách

Đúng(1)

TH

Thiên Hoàng Ân

5 tháng 4 2020

1

ML

Minh Lệ

5 tháng 4 2020

1) 11

2) I mod 2=1

3) S+i;

4) 0

5) 15

6) 3 6 9

7) 0

8) for i:=1 to 20 do write('C');

Program HelloWorld(output); Var a,b :array[1..100] of integer; i,n,s,d:integer; begin write(‘Nhap n= ’); readln(n); For i:=1 to n do Begin Write(‘a[‘,i,’]=’); readln(a[i]); End; s:=0; for i:=1 to n do if (a[i]mod 2=1) then s:=s+a[i]; write(‘tong so le ’,s); d:=0; for i:=1 to n do if (a[i]mod 3=0) then d:=d+1; write(‘so luong so chia het cho 3: ’,d); For i:=1 to n do b[i]:=2*a[i]; For i:=1 to n do write(b[i]:4); readln end. code này sai chỗ nào vậy mn ?, giúp em sửa với...

NC

Nhân CFM

11 tháng 5 2020

#Tin học lớp 11

1

ML

Minh Lệ

11 tháng 5 2020

Mình kiểm tra thấy nó có sai về lỗi gì đâu. Ý bạn là sai về cách chạy đúng không, bạn gửi đề để mình xem nhé

NT

Nguyễn Thị Hồng

22 tháng 2 2021

Các câu lệnh lặp sau đây đúng hay sai? Sửa lại cho đúng?

a/ For i:= 10 to 1 do write ('a');

b/ For i:= 1 to 10 do write ('a');

c/ For i:= 1 to 10 do write ('a');write ('b');

2

LQ

Lưu Quang Trường

22 tháng 2 2021

a) sai:

sửa: for i:=1 to 10 do write('a');

b) Đúng

c) Đúng

Đúng(1)

NL

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

22 tháng 2 2021

a) Sai

Sửa lại: for i:=10 downto 1 do write('a');

b) Đúng

c) Đúng

Trong bài học câu lệnh in ra màn hình 50 dấu sao là: * 1 điểm for i:= 1 to 50 do writeln(‘*’); for i:= 1 to 50 do write(‘*’); for j:= 1 to 50 do write(‘*’); for j:= 0 to 50 do write(‘*’);

NH

Nhân Hiền

31 tháng 3 2020

1

NL

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

31 tháng 3 2020

for i:=1 to 50 do write('*');

CC

Công chúa Anime

6 tháng 4 2021

Câu lệnh nào sai và sai ở đâu:

a. for i:=10 to 2 do write (A);

b. for i:=15 to 5 do write (A);

c. while (n mod 2<>0) do i:= 1+1

1

NL

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

6 tháng 4 2021

a) Sai vì giá trị đầu lớn hơn giá trị cuối

b) Sai vì giá trị đầu lớn hơn giá trị cuối

b) Sai vì sau câu lệnh i:=1+1 thiếu dấu chấm phẩy

Đúng(1)

H

hahaha

18 tháng 4 2022

Cho biết kết quả câu lệnh sau: For i:=1 to 10 do if i mod 2=0 then write(i:4); *

a.1 2 3 4 5 6 7 8 9 10

b.2 4 6 8 10

c.1 3 5 7 9

d.4 8

0

VN

vung nguyen thi

15 tháng 1 2019

Để in các phần tử của mảng A, ta có thể sử dụng đoạn chương trình nào sau đây?
A. for i := 1 to n do write(a[i]:5);

B. for i := n downto 1 do readln(i);
C. for i := 1 to n do write(i:5);

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

#Tin học lớp 11

2

E

Eriken

16 tháng 1 2019

D

NL

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

13 tháng 10 2019

A mới đúng nhé bạn

in ra thì phải write(a[i]:5) mới đúng

D là nhập rồi nhé bạn

Câu 1: Cho 1 vài ví dụ về hoạt động lặp đi lặp lại trong cuộc sống?Câu 2: Các câu lệnh lặp đúng hay sai? Nếu sai sửa lại cho đúng?a) For i:=10 to 1 do write('a');b) For i:=1 to 10 do write('a');c) For i:=1 to 10 do write('a'); write('b');Bài 3: For i:=1 to n do readln(a); lặp mấy lần?Bài 4: Cho đoạn chương trình sau: S:=0; For i:= 1 to 5 do S:=S+i; Hỏi sau khi kết thúc chương trình thì S bằng bao nhiêu?Bài 5: Viết chương trình tính...

NN

Nguyến Ngọc Nguyên

22 tháng 2 2021

1

NL

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

22 tháng 2 2021

Câu 1:

-Đánh răng rửa mặt mỗi ngày

-Đi học

-Đi ngủ

Câu 2:

a) Sai

Sửa lại: for i:=10 downto 1 do write('a');

b) Đúng

c) Đúng

Câu 3:

Lặp n-1+1=n(lần)

Câu 4:

S=15

Câu 5:

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do

s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

Đúng(2)

NN

Nguyến Ngọc Nguyên

22 tháng 2 2021

mấy câu kia bạn làm được ko giúp giúp mình luôn ik

ND

nguyến duc khai

4 tháng 5 2022

Để in ra màn hình giá trị từ một đến 10 của biến điểm y, ta sử dụng câu lệnh: a for I :=1 to 10 writeln (‘I’) b for I:= 1 to 10 do writeln (I ); c for I: = 1 to n do writeln ( I ) ; d for I: = 10 downto 1 do write (I);

Chương trình sau giải quyết vấn đề gì? Var a:array[1..4] of integer; Begin For i:=1 to 4 do Begin Write('nhap cac phan tu A[',i,']:'); readln (a[i]); End; For i:=1 to 3 do For j:= I+1 to 4 do If a[i]> a[j] then Begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; For I:=1 to 4 do Write(a[i]); End.Select one:a. sắp xếp...

0

AL

Anh Lê duy

29 tháng 11 2021