Kết quả sai do em khai báo biến T là integer

Giá trị tối đa T có thể chứa là 32767 nên không thể chứa được kết quả như em mong muốn

Em sửa lại khai báo T là longint là được

i*t là sai rồi bạn

đúng ra phải là t*i nha

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

for i:=25 to 50 do if (i mod 5=0) and (i mod 2=1) then t:=t+i;

write('Tong la: ',t);

readln

end.

program GiamGiaTheoSoLuong;

     soluonghoa: integer;

     dongia, thanhtien: real;

begin

     write('Nhap so luong hoa: ');

     readln(soluonghoa);

     write('Nhap don gia: ');

     readln(dongia);

     thanhtien := soluonghoa * dongia;

     if soluonghoa >= 10 then

          thanhtien := thanhtien * 0.9

     else if soluonghoa >= 5 then

          thanhtien := thanhtien * 0.95;

     writeln('So luong hoa: ', soluonghoa);

     writeln('Don gia: ', dongia:0:2);

     writeln('Thanh tien: ', thanhtien:0:2);

     readln;

end.

uses crt;
var n:int64;
begin
clrscr;
n:=maxint;
while 1/n>=0.0005 do
begin
n:=n-1;
end;
writeln(n);
readln;
end.

Đoạn chương trình dùng để tính N! hay tích của P= 1.2.3.4....N

chỉ cho em câu này đi

 Câu 6: Cho biết kết quả in ra màn hình của đoạn chương trình sau

Câu a)

          i := -1;

          j:= 20;

For   k:= 1 to 5 do

          If  k   mod   2  = 0   then    i:= i + 1;

j := j + i;

Writeln(i,‘   ’,j);

=>chương trình bị lỗi

Câu b)

n := 127;

m := 0;

While  n < >0  do

Begin

                   m := m * 10 + n  mod  10;

                   n := n  div  10;

end;

writeln(m);

Program HOC24;

var s: longint;

i: integer;

begin

s:=0; i:=0;

while s<=200 do

begin

s:=s+i;

i:=i+2;

end;

write('S= ',s);

readln

end.

a/

Giá trị đầu của vòng lặp là 1, giá trị cuối là 5 => biến đếm của k lần lượt tăng thành 1 dãy số 1,2,3,4,5 

k mod 2 =0 -> nếu k là số chẵn thì biến i tăng lên 1 đơn vị. Dãy số gồm 2 số chẵn (2,4) => i tăng 2 đơn vị => i = -1 + 1 + 1 = 1

j = j + i => j = 20 + 1 = 21

Vậy i=1; j=21

b/

Lần lặp thứ nhất: m=0*10 + 7 = 7 ; n = 12

Lần lặp thứ 2: m=7*10 + 2 = 72; n= 1

Lần lặp thứ 3: m=720 + 1 = 721; n=0 (n=0 => dừng vòng lặp)

Vậy m=721

Bước 1: S←0;

Bước 2: S←1+1+1.

Bước 3: In ra kết quả S và kết thúc

Program HOC24;

var p,q,i,d: integer;

begin

write('Nhap p: '); readln(p);

write('Nhap q: '); readln(q);

d:=0;

for i:=p to q do if sqr(trunc(sqrt(i))) = i then d:=d+1;

write('Co ',d,' so chinh phuong');

readln

end.