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.

D
datcoder
CTVVIP
28 tháng 5

- Thêm cột Giảm giá ngay bên phải cột Thành tiền.

- Thực hiện điền giá trị cho cột Giảm giá theo quy tắc: Nếu số lượng của một mặt hàng từ 3 trở lên thì giảm giá bằng 30% của thành tiền, còn lại giảm giá bằng 0.

- Tính tổng số tiền đã giảm và số tiền khách hàng cần trả.

Số tiền khách cần trả = Thành tiền – Giảm giá

30 tháng 10 2021

uses crt;

var a:array[1..50]of int64;

i,n,t,max,min:int64;

begin

clrscr;

readln(n);

for i:=1 to n do 

  readln(a[i]);

max:=a[1];

min:=a[1];

t:=0;

for i:=1 to n do 

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

t:=t+a[i];

end;

writeln('Tong la: ',t);

writeln('So lon nhat la: ',max);

write('Vi tri la: ');

for i:=1 to n do

if a[i]=max then write(i:4);

writeln;

writeln('So nho nhat la: ',min);

write('Vi tri la: ');

for i:=1 to n do 

if a[i]=min then write(i:4);

readln;

end.

9 tháng 5 2023

Var a:array:[1..1000] of real;

i,n,max,min,s:real;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

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

End;

max:=a[1];

min:=a[1];

For i:=2 to n do

Begin

If a[i] > max then max:=a[i];

If a[i] < min then min:=a[i];

End;

Write('Cac so vua nhap la ');

for i:=1 to n do write(a[i]:10:2):

Writeln;

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

Writeln('So nho nhat la ',min:10:2);

Write('So lon nhat la ',max:10:2);

Readln

End.

27 tháng 5 2023

var
  Mang: array[1..100] of Integer;
  N, i, Tong, Min, Max: Integer;

begin
  // Yêu cầu nhập độ dài của dãy số từ bàn phím
  Write('Nhap do dai cua day so: ');
  ReadLn(N);

  // Yêu cầu nhập các phần tử của dãy từ bàn phím
  for i := 1 to N do
  begin
    Write('Nhap phan tu thu ', i, ': ');
    ReadLn(Mang[i]);
  end;

  // In ra màn hình các số vừa nhập
  Write('Cac so vua nhap: ');
  for i := 1 to N do
  begin
    Write(Mang[i], ' ');
  end;
  WriteLn;

  // Tính tổng các phần tử của dãy số
  Tong := 0;
  for i := 1 to N do
  begin
    Tong := Tong + Mang[i];
  end;
  WriteLn('Tong cac phan tu cua day so la: ', Tong);

  // Tìm giá trị nhỏ nhất của dãy số
  Min := Mang[1];
  for i := 2 to N do
  begin
    if Mang[i] < Min then
      Min := Mang[i];
  end;
  WriteLn('Gia tri nho nhat cua day so la: ', Min);

  // Tìm giá trị lớn nhất của dãy số
  Max := Mang[1];
  for i := 2 to N do
  begin
    if Mang[i] > Max then
      Max := Mang[i];
  end;
  WriteLn('Gia tri lon nhat cua day so la: ', Max);

  ReadLn;
end.

11 tháng 11 2021

Thương mại điện tử

11 tháng 11 2021

 lí do ?

 

D
datcoder
CTVVIP
4 tháng 11 2023

Program HOC24;

var a,b,c,max: integer;

begin

readln(a,b,c);

max=a;

if max>b then max=b;

if max>c then max=c;

write('So lon nhat trong 3 so la: ',max);

readln;

end.

 1. Bài tập 1: Đánh dấu x vào cột bên phải để chỉ ra những công việc cần kết nối mạng máy tính trong bảng sau: Công việc trên máy tínhCần kết nối mạng máy tính1. Soạn thảo văn bản bằng Word 2. Lập trình Pascal 3. Tạo bảng tính bằng Excel 4. Đọc báo điện tử từ Internet 5. Chat với bạn bè trên Facebook 6. Gửi/nhận thư điện tử 7. Học tiếng Anh trực tuyến 8. Sử dụng Google để tìm kiếm thông tin 9. Trao...
Đọc tiếp

 

1. Bài tập 1: Đánh dấu x vào cột bên phải để chỉ ra những công việc cần kết nối mạng máy tính trong bảng sau:

 

Công việc trên máy tính

Cần kết nối mạng máy tính

1. Soạn thảo văn bản bằng Word

 

2. Lập trình Pascal

 

3. Tạo bảng tính bằng Excel

 

4. Đọc báo điện tử từ Internet

 

5. Chat với bạn bè trên Facebook

 

6. Gửi/nhận thư điện tử

 

7. Học tiếng Anh trực tuyến

 

8. Sử dụng Google để tìm kiếm thông tin

 

9. Trao đổi thông tin, dữ liệu (chat, email, …)

 

10. Sử dụng dịch vụ trên mạng (học trực tuyến, tìm kiếm thông tin, …)

 

11. Sử dụng chung thiết bị phần cứng (máy in, thiết bị lưu trữ, …)

 

12. Soạn thảo trực tuyến, chia sẽ bài viết, hình ảnh, video, …

 

13. Một vấn đề lớn, phức tạp cần kết hợp sức mạnh của nhiều máy tính để giải quyết (giải bài toán cần xử lí nhiều phép tính, dữ liệu lớn, …)

 

1
12 tháng 9 2021

Công việc trên máy tính

Cần kết nối mạng máy tính

1. Soạn thảo văn bản bằng Word

 

2. Lập trình Pascal

 

3. Tạo bảng tính bằng Excel

 

4. Đọc báo điện tử từ Internet

 x

5. Chat với bạn bè trên Facebook

 x

6. Gửi/nhận thư điện tử

 x

7. Học tiếng Anh trực tuyến

 x

8. Sử dụng Google để tìm kiếm thông tin

 x

9. Trao đổi thông tin, dữ liệu (chat, email, …)

 x

10. Sử dụng dịch vụ trên mạng (học trực tuyến, tìm kiếm thông tin, …)

 x

11. Sử dụng chung thiết bị phần cứng (máy in, thiết bị lưu trữ, …)

 

12. Soạn thảo trực tuyến, chia sẽ bài viết, hình ảnh, video, …

 x

13. Một vấn đề lớn, phức tạp cần kết hợp sức mạnh của nhiều máy tính để giải quyết (giải bài toán cần xử lí nhiều phép tính, dữ liệu lớn, …)

 x

em nghĩ sử dụng chung thiết bị phần cứng (máy in, thiết bị lưu trữ, …) cũng là cần kết nối mạng máy tính vì trong phần lợi ích sgk có ghi vậy ạ T^T

 

#include <bits/stdc++.h>

using namespace std;

long long a,b;

char st;

int main()

{

cin>>a>>b;

cout<<"Nhap phep tinh:"; cin>>st;

if (st=='+') cout<<a+b;

if (st=='-') cout<<a-b;

if (st=='*') cout<<a*b;

if (st=='/') cout<<a/b;

return 0;

}

23 tháng 1 2022

minh tap lap trinh pascal ma du sao cung cam mon ban da co long tot