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.

Uses crt;

Var

S,i,n:Integer;

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

BEGIN

Write( ‘ Nhap so n:’ );

 Readln( n );

For i:=1 to n do

begin

 a[i]:=i;

 s:=s+a[i]

end;

Writeln( ‘Tong = ’, S);

Readln;

END.

5 tháng 5 2019

chịu nạ

11 tháng 2 2021

program chia;

uses crt;

var n,i:integer;

s:real;

begin 

clrscr;

s:=0;

for i:=2 to 50 do s:=s+1/i;

writeln('Tong la ',s:1:2);

readln;

end.

 

 

20 tháng 12 2018

tin hả 

Bài 1(2 điểm):Tìm DateViết chương trình cho biết số ngà của một tháng.Bài 2(2 điểm):Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lơn nhất.N được nhập từ bàn phím. Bài 3(3 điểm ):Hành tháng gia đình em đều nhận được hoá đơn thanh toán tiền điện.Tiền điện tiêu thụ được tính như sau:-100 số đầu tiên mỗi số trả 550 đồng-Từ 101 đến 150...
Đọc tiếp

Bài 1(2 điểm):Tìm Date

Viết chương trình cho biết số ngà của một tháng.

Bài 2(2 điểm):

Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lơn nhất.N được nhập từ bàn phím. 

Bài 3(3 điểm ):Hành tháng gia đình em đều nhận được hoá đơn thanh toán tiền điện.

Tiền điện tiêu thụ được tính như sau:

-100 số đầu tiên mỗi số trả 550 đồng

-Từ 101 đến 150 số mỗi số trả 1100 đồng

-Từ 151 đến 200 số mỗi số trả 1500 đồng

-Trên 200 số mỗi số trả 2000 đồng

-Số tiền phải trả là số tiền tính được cộng thêm 10% thuế VAT.

Biết rằng số luongj điện tiêu thụ trong 1 tháng của gia đình em là A(KW).

Hãy lập trình tính số tiền điện gia đình em phải thanh toán trong 1 tháng bất kỳ.

Bài 4(3 điểm)

Viết chương trình nhập 3 số (a,b,c) là số đo 3 cạnh của 1 tam giác(a,b,c>0;tổng hai số lớn hơn số  kia - Nếu không thoả mãn điều kiện thì yêu cầu và cho phép nhập lại đến khi thoả mãn). Thông báo ra màn hình tam giác đó là tam giác gì, tính diện tích của tam giác đó theo công thức diện tích tam giác bằng  \(\sqrt{p\left(p-a\right)\left(p-b\right)\left(p-c\right)}\) (P là nửa chu vi của tam giác).

Nhok_baobinh đây là đề thi của huyện mk .

0