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.

3 tháng 12 2021

???

3 tháng 12 2021

Dựa vào thuật toán sau viết chương trình đó b, xin lỗi mình kh ghi rõ

13 tháng 12 2021

Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây là sai :

A. x:= 2.5;

B. b:= (a=4) or (c=7); <= B

C. c:= pi*12;

D. a:=3,12;

13 tháng 12 2021

B. sai vì đây là câu lệnh logic,

D. sai vì trong pascal phần thập phân và phần nguyên ngăn cách nhau bởi dấu chấm không phải dấu phẩy

28 tháng 12 2020

Cú pháp

If < điều kiện> then < câu lệnh>;

Cách hoạt động: nếu điều kiện đúng thì sẽ thực hiện câu lệnh còn nếu điều kiện sai thì sẽ không thực hiện được và sẽ dừng chương tình

28 tháng 12 2020

Điều kiện dạng đủ mà bạn!

7 tháng 2 2022

var i,n:integer;

s:real;

begin

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

for i:=1 to n do

s:=s+1/(3*i+2);

write('Tong la ',s:10:2);

readln;

end.

NM
11 tháng 5 2021

vì câu lệnh \(for\text{ }i:=\text{ 4 }to\text{ 10}\) nên vòng lặp trên lặp \(10-4+1=7\)lần

mỗi vòng lặp đều tăng  j thêm 2 đơn vị \(\left(j:=j+2\right)\)nên sau khi kết thúc

giá trị của j là\(j=0+2\times7=14\)

khoanh B

uses crt;

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

n,i,k,min,vt:integer;

begin

clrscr;

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

if n=0 then writeln('Moi ban nhap lai')

else begin

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

min:=a[1];

vt:=1;

for i:=1 to n do 

 if min>a[i] then

begin

min:=a[i];

vt:=i;

end;

writeln('So nho nhat la: ',min,' tai vi tri: ',vt);

write('Nhap k='); readln(k);

for i:=1 to n do 

  if i<>k then write(a[i]:4);

end;

readln;

end.