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.

30 tháng 4 2019

uses crt;

var n: integer;

begin

clrscr;

repeat

writeln('Nhap dan so nam 2000: '); read(n);

until n>=1000000;

for i:=1 to 11 do

begin

n:=n+n*7/100 - n*3/100;

writeln('Dan so cuoi nam 200',i, 'la: ', n);

end;

readln

end.

30 tháng 4 2019

Cảm ơn câu trả lời của bạn nha ! Nhưng mình muốn hỏi là sau khi chạy chương trình nó có in ra bảng ko ?

Đến ngày giáng sinh và năm mới, rất nhiều cửa hàng có các chương trình khuyến mạiđể xả hàng cuối năm. Hệ thống các siêu thị BigC cũng tiến hành việc này. Trong đợtkhuyến mại này, một người cứ mua 3 đồ sẽ được giảm giá là đồ có giá trị nhỏ nhất.Ban lãnh đạo muốn bạn viết một chương trình xác định: nếu một người mua toàn bộcác sản phẩm của siêu thị mỗi loại một đơn vị thì người đó...
Đọc tiếp

Đến ngày giáng sinh và năm mới, rất nhiều cửa hàng có các chương trình khuyến mại
để xả hàng cuối năm. Hệ thống các siêu thị BigC cũng tiến hành việc này. Trong đợt
khuyến mại này, một người cứ mua 3 đồ sẽ được giảm giá là đồ có giá trị nhỏ nhất.
Ban lãnh đạo muốn bạn viết một chương trình xác định: nếu một người mua toàn bộ
các sản phẩm của siêu thị mỗi loại một đơn vị thì người đó được giảm giá lớn nhất là
bao nhiêu?
Dữ liệu vào:
• Dòng đầu ghi số N là số mặt hàng trong siêu thị (1 ≤ N ≤ 106);
• Dòng tiếp theo ghi N số nguyên dương ai thể hiện giá của N mặt hàng trong siêu
thị.
Dữ liệu ra:
• Ghi một số duy nhất là giảm giá lớn nhất của một người nếu người đó mua toàn
bộ các sản phẩm của siêu thị mỗi loại một đơn vị
(lập trình pascal)

 

0

#include <bits/stdc++.h>

using namespace std; 

double t;

 int main() 

{

 cin>>t;

 for (int i=1; i<=10; i++)

 {

 t=t*1.05; 

cout<<fixed<<setprecision(3)<<t<<endl; 

}

26 tháng 4 2022

uses crt;
var b,c:real; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao diem hoc ki 1:');readln(b);
write('Nhap vao diem hoc ki 2:');readln(c);
s:=((b+c)*2)/3;
write('Diem ca nam=',s:2:2);
readln;
end.

Tham khảo! Làm hơi ngắnbucminh

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

 if (a[i]>0) and (a[i] mod 5=0) then write(a[i]:4);

readln;

end.

12 tháng 5 2021

program Tinhtong;

uses crt;

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

sum,n:integer;

 

begin clrscr;

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

for i:=1 to n do

begin

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

end;

sum:=0;

for i:=1 to n do

if (a[i] mod 2 = 0) then sum:=sum+a[i];

 

write('Tong cac so chan = ',sum);

readln;

end.

12 tháng 5 2021

cảm ơn bạn nha ,nhờ bạn mình nộp kịp bài