Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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);

 

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.

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ả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;

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.

 

 

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;

}

nan co
9 tháng 1 2022 lúc 20:35

OKkkkkkkkkkkkk

 

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;

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.

Kim Thoa Le Thi
Xem chi tiết
HT.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.

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;

}

Utfg aghjn
Xem chi tiết