Những câu hỏi liên quan
Minh Tuệ Nguyễn
Xem chi tiết
Nguyên Bùi
8 tháng 9 2022 lúc 21:37

{ đơn giá: a, số lượng: b}

uses crt;

var a,b,s,thanhtoan:integer;

begin

write('nhap gia don hang:');

read(a);

write('nhap so luong hang:');

s:=0;

thanhtoan:=0;

s:=a*b;

if s>100 then thanhtoan:= s*(30/100)

   else thanhtoan:= s* (10/100);

write(' so tien can thanh toan la:',' ',thanhtoan);

readln;

end.

 

 

 

 

 

 

 

 

Anh Lê duy
Xem chi tiết
Phúc Trần
Xem chi tiết
Phúc Trần
12 tháng 4 2022 lúc 19:27

Mình cần gấp lắm ạ, ai giúp mình với T-T

 

Nguyễn Lê Phước Thịnh
13 tháng 4 2022 lúc 18:32

2:

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) if (a[i]%2==0) cout<<a[i]<<" ";

return 0;

}

Thanh Vi Nguyễn Trần
Xem chi tiết
04-Nguyễn Quốc Đại-8a3
Xem chi tiết
minh hieu vo
10 tháng 3 2022 lúc 20:44

n=int(input("nhập n="))

if n>100.000:n=n-(n*10%)

 else: n<100.000:n=n-(n*10%)

print(n)

python nha bạn!

Văn vở
Xem chi tiết
Tấn Nguyên
Xem chi tiết
Đu Boylove Vân Anh
Xem chi tiết
Phía sau một cô gái
17 tháng 4 2023 lúc 15:14

program Tim_so;

var

      a: array of integer;

      i, n, max, min: integer;

begin

      write('Nhap so phan tu cua danh sach: ');

      readln(n);

      SetLength(a, n);

      for i := 0 to n - 1 do

      begin

            write('Nhap gia tri phan tu thu ', i + 1, ': ');

            readln(a[i]);

            if (i = 0) then

            begin

                  max := a[i];

                  min := a[i];

            end

            else

            begin

                  if (a[i] > max) then

                        max := a[i];

                  if (a[i] < min) then

                        min := a[i];

            end;

      end;

      writeln('Phan tu co gia tri lon nhat la: ', max);

      writeln('Phan tu co gia tri nho nhat la: ', min);

end.

Ske Bình
Xem chi tiết
Minh Lệ
12 tháng 3 2023 lúc 21:46

Program HOC24;

var i,n: integer;

t: longint;

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

begin

write('Nhap so phan tu : '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Ket qua la: ',t);

readln

end.