Hoàng Thị Thanh Mỹ
Câu 1: Khai báo dữ liệu kiểu mảng trong ngôn ngữ pascal? Dữ liệu kiểu mảng trong pascallaf gì? Câu 2: Cách thực hiện câu lệnh lặp với số lần viết trước pascal? Nêu cú pháp câu lệnh đó? Câu 3: Viết trương trình nhập vào biến mảng 1 dãy số nguyên có tối đa 20 phần tử, in ra màn hình các số chia hết cho 4(với độ dài mảng và từng phần tử nhập từ bàn phím). Câu 4: Viết chương trình nhập vào biến a một mảng các số nguyên có đọ dài tối đa 50 phần tử .In ra màn hình các số chẵn. Câu 5: Viết chương trình...
Đọc tiếp

Những câu hỏi liên quan
Vũ Hạ Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:10

Câu 1: 

a) var a:array[1..50]of real;

b) a[5]:=8;

c) for i:=1 to 50 do  

begin

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

end;

for i:=1 to 50 do 

 write(a[i]:4);

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:10

Câu 2: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:11

Câu 3: 

b) a[2]=37

a[9]=25

Bình luận (0)
Bảo thy
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2022 lúc 15:34

Câu 1: Cú pháp khai báo mảng trong pascal:

Var <tên mảng>:array[1..n] of <kiểu dữ liệu>;

Cây 2: Khai báo mảng c gồm 20 phần tử kiểu số thực:

Var c:array[1..20] of real;

Bình luận (0)
Huynh Uyen
Xem chi tiết
Ngô Bá Hùng
25 tháng 4 2023 lúc 23:29

a)

program TenCuaMinh;
var
  i: integer;
begin
  for i := 1 to 10 do
    writeln('Tên của mình là: <tên>');
end.

b)

program MangSoNguyen;
var
  M: array[1..100] of integer;
begin
end.

 

 

Bình luận (0)
Nguyễn Ngọc Quỳnh Trang
Xem chi tiết
Văn Nguyễn Vu
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 11 2021 lúc 23:29

Câu 6: 

#include <bits/stdc++.h>

using namespace std;

double r,cv,dt;

int main()

{

cin>>r;

cv=2*r*pi;

dt=r*r*pi;

cout<<fixed<<setprecision(2)<<cv<<endl;

cout<<fixed<<setprecision(2)<<dt;

return 0;

}

Bình luận (0)
nan co
9 tháng 1 2022 lúc 20:35

OKkkkkkkkkkkkk

 

Bình luận (0)
Quân Chí
Xem chi tiết
Kiều Vũ Linh
3 tháng 5 2023 lúc 7:14

a) var cannang:array[10..100] of real;

b) a[7]:=20;

Bình luận (0)
Anthea2148
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 11 2021 lúc 23:29

Câu 3: 

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Bình luận (0)
Kim Thoa Le Thi
Xem chi tiết
Thanh Phong (9A5)
13 tháng 4 2023 lúc 19:01

Uses crt;

var n,i: integer;

a: array[1..100] of longint;

begin clrscr;

readln(n);

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

writeln(a[i]:3);

readln;

end.

Bình luận (0)
Nguyễn Kim Trí
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 1 2022 lúc 21:17

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

//chuongtrinhcon

bool ktnt(long long x)

{

if (x<=1) return(false);

for (int i=2; i*i<=x; i++)

if (x%i==0) return(false);

return(true);

}

//chuongtrinhchinh

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) if (ktnt(a[i])==true) cout<<a[i]<<" ";

return 0;

}

Bình luận (0)
Utfg aghjn
Xem chi tiết