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.
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.
program....
uses Crt;
Var a, b, c, : Real;
Begin
clrscr;
Write( ' Nhap ba so a, b, c : ' );
Readln(a, b, c);
If (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
Begin
Writeln( ' Ba canh tren tao thanh mot tam giac ');
if (a=b) or (a=c) or (b=c) then write(' Day la tam giac can ' );
End
Else write(' Day khong la tam giac can ' );
Readln;
End.
program Iza_dang_cap;
uses crt;
var n,i: integer;
A:array[1..100] of integer;
begin
clrscr;
writeln('nhap cac phan tu cua day');
for i:=1 to n do write(A[i]);
writeln('cac phan tu cua day so la: ' )
for i:=1 to n do write(A[i],' ');
readln
end.
p/s : bn nhập chương trình zô pascal xem cóa sai j ko nhá~~
Với chương trình 1:
Tổng số tiền mua cho lớp 8a nếu chưa giảm giá là: 15.000 x 40 = 600.000 (đồng)
Vì giảm 15% nên số tiền phải trả chiếm là 100% - 15% = 75%
Khi đó, nếu sử dụng chương trình 1 thì số tiền cần phải trả là 600.000 x 75% = 450.000 (đồng)
Với chương trình 2:
Mua 4 tặng 1, tức là mua được 5 ly trà sữa cho 5 bạn với giá của 4 ly
Giá mua 5 ly trà sữa với chương trình 2 là: 15.000 x 4 = 60.000 (đồng)
Mà lớp 8a có 40 học sinh
Nên số lần mua 5 ly cho 5 bạn với chương trình 2 là 40 : 5 = 8 (lần)
Khi đó, số tiền cần phải trả với chương trình 2 là: 60.000 x 8 = 480.000 (đồng)
Vì 450.000 đ < 480.000 đ nên Lớp 8a nên chọn chương trình 1 để tiết kiệm hơn
Gọi số hs cả lớp là x
Học kì 1 số hs cả lớp là 1/6x
Sang học kì 2,có thêm 2 bạn phấn dấu thì số hs giỏi bằng 2/9x
Do hs giỏi tăng lên ở kì 2 nên ta có pt:
=2/9x-1/6x=2
=(2/9-1/6)x=2
=1/18x=2
=x=2:1/18
=x=36
Vậy số hs lớp 8A là 36 hs
1 học sinh chỉ số phần là :
1/6−1/7=1/42 ( số phần học sinh của lớp )
Số học sinh ở lớp 8A là :
1÷1/42=42 ( học sinh )
Đáp số : 42 học sinh
program chia_n;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
Write('Hay nhap so n ');readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('Tong la ',s:1:2);
readln;
end.
nhớ tick cho mik nha!