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.

11 tháng 11 2017

Program Đổi_Tiền;

var

loai5000,loai2000,loai1000,m,n: integer;

write('nhap so tien can doi :'); readln(n);

M:=n;

loai5000:= n div 5000; n:=n-loai5000*5000;

if n<>0 then

begin

loai2000 :=n div 2000; n:=n-loai2000*2000;

if n<>0 then

begin

loai1000:=n div 1000 ; n:=n-loai1000*1000;

end;

writeln(M , 'doi duoc thanh :' ,loai5000,' to 5000,' ,loai2000,' to 2000 ,' ,loai1000,' to 1000 ,');

readln;

end.

12 tháng 11 2017

tích để ủng hộ mình nha leuleuleuleu

12 tháng 12 2020

Bạn ơi!

Viết rõ là có thể đổi ra thành bao nhiêu tờ 10,5,2,1 đồng hay là có thể lấy bao nhiêu tờ 10,5,2,1 để tạo thành một số tiền bằng n vậy bạn?

Ví dụ như nhập n=30

thì xuất là 3 tờ 10; 6 tờ 5; 15 tờ 2; 30 tờ 1 

hay là xuất 3 tờ 10 

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln((a+b)/2:4:2);

readln;

end.

8 tháng 9 2022

{ đơ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.

 

 

 

 

 

 

 

 

15 tháng 2 2018

Var n:integer;

Begin

Write (' nhap so tien : ');

Readln(n);

Write ( n div 50,' to 50n ');

n:=n mod 50;

Write ( n div 20,' to 20n ');

n:=n mod 20;

Write ( n div 5,' to 5n ');

n:=n mod 5;

Write ( n div 2,' to 2n ');

n:=n mod 2;

Write ( n div 1,' to 1n ');

n:=n mod 1;

Readln;

end.

5 tháng 3 2022

INP: 150 hóa đơn

OUT: Tổng số tiền của 150 hóa đơn

Thuật toán

B1: Nhập các số tiền hóa đơn a[1],a[2],...,a[150]

B2: t←0; i←1;

B3: Nếu i<=n thì in ra tổng số tiền và kết thúc

B4: t←t+a[i]; quay lại bước 3

B5: i←i+1; quay lại bước 3.

*Viết chương trình

program hotrotinhoc;

var i,t: longint;

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

begin

for i:=1 to 150 do

begin

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

end;

t:=0; i:=1;

while i<=n do

begin

t:=t+a[i];

i:=i+1;

end;

write('Tong so tien la : ',t);

readln

end.

6 tháng 3 2022

Bn coppy bàu khác qua đây hả mik thấy giống y chang, vs lại n là gì vậy

18 tháng 10 2020

21 tháng 10 2020

var n:real;

begin

write(' Nhap so dien dung la: ');readln(n);

writeln(' So tien dien la: ',(n*2000):2:2);

readln;

end.