uses crt;

var X:string;

demtu,demdc,i:word;

begin

clrscr;

write('nhap cau van X:');readln(X);

writeln('so ki tu la:',length(X));

demtu:=1;

for i:=1 to length(X)-1 do

if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;

writeln('so tu la:',demtu);

demdc:=0;

for i:=1 to length(X) do

if X[i]=' ' then demdc:=demdc+1;

writeln('so dau cach la:',demdc);

readln;

end.

vì k có h

có tổng số người là: 

  120+30=150(người)

1 người ăn được trong số ngày là:

  120*10=1200(ngày)

số gạo đó đủ cho số người hiện tại số ngày là:

  1200/150=8(ngày)

                      đáp số: 8 ngày

B

uses crt;
var a,b,c: real;
begin
clrscr;
write('Nhap 3 so a, b, c:');readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then
write('3 canh vua nhap la tam giac')

write('3 canh vua nhap ko phai la tam giac');
readln;
end.

Dãy ; 1;3;5;...;999

Có số số hạng là :

( 999 - 1 ) : 2 + 1 = 500 ( số )

Tổng của dãy trên là :

( 999 + 1 ) x 500 : 2 = 25000

bạn thử cắn mông mình đi xem có cắn ddược ko

program tong
uses crt;
var n,i,tong,dem:integer;
begin clrscr; write('nhap so tu nhien:');readln(n); dem:=0; tong:=0;
for i:=1 to n do if n mod i = 0 then begin dem:=dem+1; tong:=tong+i; writeln(i,' la uoc cua ',n); end; writeln(n,' co ',dem,' uoc so'); write('tong cua cac uoc so la:',tong);
readln;
end.