Bạn nào viết được giùm mình cái chương trình pascal này :

MT

Mộc Trà

16 tháng 12 2018

Bạn nào viết được giùm mình cái chương trình pascal này :''CẢM ƠN NHIỀU'' Nếu như mua>100 nghìn thì giảm giá 30% Nếu như mua<100 nghìn thì giảm giá 15% Có gợi ý: Program:________________ uses __________ var T:real; write(''nhap so tien mua'');readln(T); if(T>100000)then writeln('so tien phai tra la'',(70*T)/100) else_______________ readln end. Cần gấp !!!!!!!!!!!!!!!! ...

Đọc tiếp

#Tin học lớp 8

2

TN

Tú Nguyễn

17 tháng 12 2018

1) Tra_Tien;

2) crt;

3) writeln(' So tien phai tra la ',(15*T)/100);

Đúng(0)

MT

Mộc Trà

16 tháng 12 2018

Mình cũng đã viết thử rồi nhưng mà sao nó cứ báo lỗi dấu ngoặc đơn

Đúng(0)

HL

Hoàng Long Đậu

17 tháng 2 2022

Làm giúp mình bài này với ạ,mình đang cần gấp

Em hãy viết chương trình Pascal để tính tổng của dãy số An(A1,A2,A3, ...,An) với n được nhập từ bàn phím.Em hãy viết chương trình để in ra tổng các số chẵn của dãy An

#Tin học lớp 8

2

NL

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

18 tháng 2 2022

uses crt;

var x,n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

begin

readln(x);

if x mod 2=0 then t:=t+x;

end;

writeln(t);

readln;

end.

Đúng(0)

GE

ღღղցմվễղ Եհíệղ cհíղհ๖ۣۜঌ

18 tháng 2 2022

program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);

end.

Đúng(0)

DD

Dragon dratie

25 tháng 3 2020 - olm

Tin học Pascal - 11Viết chương trình nhập vào mảng một chiều gồm 100 phần tử thuộc kiểu số thực. Tính tổng các phần tử lẻ có chỉ số chẵn của mảng.Cái này là bài tin - 11 á! Mặc dù biết diễn đàn này không áp dụng các câu hỏi ngoài 3 môn Toán, TA và Ngữ Văn nhưng mình chỉ biết cái diễn đàn này mà thôi. Nên mong mọi người ai giỏi pascal thì giúp mình...

Đọc tiếp

#Toán lớp 11

0

TC

The Chu Cong

8 tháng 11 2021

Viết chương trình Pascal có khai báo và sử dụng biếnNhập vào chiều cao, cân nặng của một bạn. Hãy viết chương trình Pascal để tính chỉ số BMI của bạn đó.a. Gõ chương trình, giải thích câu lệnh. Lưu chương trình với tên BMI_TenHS.pas. Dịch và sửa lỗi gõ (nếu có).b.Chạy chương trình với bộ dữ liệu (Cân nặng, Chiều cao) như sau (68; 1.75); (56;1.67; (75;...

Đọc tiếp

#Tin học lớp 8

0

HT

Hoài thịnh

28 tháng 2 2023

Mọi người giúp mình bài này với ạ :

Viết chương trình pascal nhập mảng và tìm số nhỏ thứ k trong mảng

#Tin học lớp 11

2

NL

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

28 tháng 2 2023

uses crt;

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

i,n,t,j,tam:integer;

begin

clrscr;

readln(n,k);

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

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end;

write(a[k]);

readln;

end.

Đúng(3)

PS

Phía sau một cô gái

28 tháng 2 2023

program sonho;

var

arr:array[1..100] of integer;

k, n, i, min: integer;

begin

write('Nhap n: ');

readln(n);

write('Nhap cac phan tu cua day: ');

for i := 1 to n do

begin

readln(arr[i]);

end;

write('Nhap k: ');

readln(k);

min := arr[1];

for i := 2 to k do

begin

if (arr[i] < min) then

min := arr[i];

end;

writeln('So nho thu ', k, ' trong day la: ', min);

end.

Đúng(1)

HT

Hoài thịnh

27 tháng 2 2023

Mọi người giúp mình bài này với ạ:

Viết chương trình pascal nhập 1 mảng sắp xếp số chẵn giảm dần và số lr tăng dần

#Tin học lớp 11

1

PS

Phía sau một cô gái

27 tháng 2 2023

var A:

array[1..n] of integer;

i, j, n: integer;

begin

write('Nhap so phan tu cua mang: ');

readln(n);

for i := 1 to n do

begin

write('Nhap phan tu thu ', i, ': ');

readln(A[i]);

end;

for i := 1 to n - 1 do

for j := i+1 to n do

if (A[i] mod 2 = 0) and (A[j] mod 2 = 0) and (A[i] < A[j]) or (A[i] mod 2 = 1) and (A[j] mod 2 = 1) and (A[i] > A[j]) then

begin

swap(A[i], A[j]);

end;

writeln('Mang da sap xep la: ');

for i := 1 to n do

writeln(A[i]);

end.

Đúng(1)

GD

Giang Đặng Nguyễn thu

7 tháng 9 2016

Viết tiểu sử của nhạc sĩ Lưu Hữu Phước.

Giups mình với gấp lắm!!!!!!!!!!!!!. Cái này trong chương trình sách mới bạn nào có sách mới có thể xem tư liệu trong sách trang 32.

#Tiếng anh lớp 10

2

TN

Trần Nho Long Vũ

24 tháng 5 2017

ông ý là người bị điên , sinh ngày dien - dien - dien

Đúng(0)

TN

Trần Nho Long Vũ

24 tháng 5 2017

tick đi

Đúng(0)

NA

Ngoc Anh Nguyen

13 tháng 3 2023

Em hãy viết chương trình nhập vào mảng A gồm 100 phần tử. tính và đưa ra màn hình tổng các phần tử không chia chết cho 2 trong mảng. Mn ơi giúp mình làm bài này với ạ TT mình cảm ơn mọi người nhiều!! (pascal nhé mấy bạn ơi

#Tin học lớp 11

1

KV

Kiều Vũ Linh

14 tháng 3 2023

Var a:array[1..100] of integer;

i,s:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

Đúng(1)

NA

Ngoc Anh Nguyen

15 tháng 3 2023

em cảm ơn ạ <3

Đúng(1)

GZ

Gen Z Khoa

29 tháng 11 2021

CHƯƠNG TRÌNH TÍNH CHU VI VÀ DIỆN TÍCH HÌNH TRÒN, BIẾT RẰNG R LÀ BÁN KÍNH ĐƯỜNG TRÒN VÀ ĐƯỢC NHẬP VÀO TỪ BÀN PHÍM. CHUVI:=2*PI*R; DIENTICH:=PI*R

Viết giùm em Pascal vs ạ=>>

#Tin học lớp 8

1

LN

Lily Nguyễn

29 tháng 11 2021

program chuvi_dientich_hinhtron;

uses crt;

const pi = 3.14;

var R: integer;

cv, dt: real;

begin

clrscr;

writeln; { xuong dong }

readln ( R );

cv:= 2*R*pi;

writeln ( ' chu vi = ' , cv : 8:2 );

dt:=R*R*pi;

writeln ( 'dien tich = ', dt :8:2 );

readln;

end.

Chúc bạn học tốt

Đúng(0)

BV

Biên Vi

21 tháng 4 2021

Mọi người giúp em với ạ mai em kiểm tra cuối kì em cảm ơn trước ạ: Viết chương trình pascal tính tổng của n số nguyên với n được nhập từ bàn phím mong mọi người giải giùm

#Tin học lớp 8

1

NL

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

21 tháng 4 2021

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln(t);

readln;

end.

Đúng(0)

TN

tan nhat

11 tháng 5 2023

thực hiện viết chương trình bằng ngôn ngữ lập trình pascal thực hiện in ra màn hình các chữ cái từ a đến z

#Tin học lớp 8

1

NH

Nguyễn Hoàng Duy

11 tháng 5 2023

program InChuCai;
var ch: char;
begin
for ch := 'a' to 'z' do
writeln(ch);
readln;
end.

Đúng(1)

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