Viết chương trình nhập vào một số nguyên dương 
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.

23 tháng 6 2021

?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

     Nguyên liệu sản xuất (Tên file Promate.pas) Một người dùng số tiền là U đô-la và V Euro để mua một loại nguyên liệu sản xuất. Có N công ty nước ngoài bán nguyên liệu trên được đánh số từ 1 đến N. Công ty thứ i có giá bán Ai đô la/1 kg nguyên liệu và Bi Euro/1 kg nguyên liệu. Tuy nhiên, tại mỗi công ty chỉ bán nguyên liệu cho một khách hàng hoặc theo đô-la, hoặc theo Euro. Hãy giúp...
Đọc tiếp

     Nguyên liệu sản xuất (Tên file Promate.pas)

 Một người dùng số tiền là U đô-la và V Euro để mua một loại nguyên liệu sản xuất. Có N công ty nước ngoài bán nguyên liệu trên được đánh số từ 1 đến N. Công ty thứ i có giá bán Ai đô la/1 kg nguyên liệu và Bi Euro/1 kg nguyên liệu. Tuy nhiên, tại mỗi công ty chỉ bán nguyên liệu cho một khách hàng hoặc theo đô-la, hoặc theo Euro. Hãy giúp người đó tìm cách chọn ra 2 công ty để mua hàng sao cho số lượng nguyên liệu sản xuất có thể mua được là nhiều nhất.

Nhập vào: Từ bàn phím 3 số theo thứ tự : N U V (1 ≤ N ≤ 20; 1 ≤ U, V ≤ 1000) và N cặp số nguyên Ai, Bi (1 < Ai, Bi < 1000), mỗi cặp trên một dòng.

In ra : Số lượng nguyên liệu S(kg) người đó mua được với 2 chữ số thập phân.

Ví dụ:

NhậpIn raGiải thích

3   2   5

6    4

3    5

8    7

S=1.92

 

 

 

N = 3, U = 2, V = 5

Người đó mua nguyên liệu của công ty thứ 2 bằng đô-la và mua nguyên liệu của công ty thứ nhất bằng Euro.

0
9 tháng 12 2020

1,

program so_nguyen;

uses crt;

var a,b:real;

begin

writeln('Nhap so thu nhat');,readln(a);

writeln('Nhap so thu hai');readln(b);

If (a>0) and (b>0) then writeln('cung dau') else write('khong cung dau');

If (a<0) and (b<0) then writeln('cung dau') else write('khong cung dau');

2,, program so_nguyen;

uses crt;

var a,b:real;

begin

writeln('Nhap so thu nhat');,readln(a);

writeln('Nhap so thu hai');readln(b);

If a>b then write('so thu nhat lon hon');

If a<b then write('so thu hai lon hon');

readln

end.(Pascal nha) - Có thể dùng If...then... hoặc while...do...

24 tháng 1 2022

???????????????????????????????????????????

11 tháng 6 2021

ờm , /////// mk k bt nx

11 tháng 6 2021

Ta thấy:

Giờ thứ nhất: 3 = 3 + 2 x 0

Giờ thứ hai: 5 = 3 + 2 x 0 + 2 x 1

giờ thứ ba: 9 = 3 + 2 x 0 + 2 x 1 + 2 x 2

Giờ thứ tư: 15 = 3 + 2 x 0 + 2 x 1 + 2 x 2 + 2 x 3

......

Vậy giờ thứ 20 sẽ phát ra: 3 + 2 x 0 + 2 x 1 + 2 x 2 + 2 x 3 + ... + 2 x 19 = 3 + 2 x (0 + 1 + 2 + 3 + ... + 19) = 3 + 2 x 190 = 383 (chiếc khẩu trang)

26 tháng 7 2021

Readln (a[3])

Đáp án :

B

# Hok tốt !

14 tháng 5 2021

Máy tính sẽ thực hiện 5 vòng lặp

Gtri của T sau 5 vòng lặp là 15

Gtri của n là 11, vì n=11 => n<10(KTMĐK) nên chương trình ngừng.

17 tháng 5 2021

Lặp 4 vòng và T= 26