t ko bt lm, ms k10

pascal hả

ờ ờ tớ không biết nhé 

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.

const
fi='sochinhphuong.inp';
fo='sochinhphuong.out';
var f,g:text;n:longint;
function scp(n:longint):boolean;
begin
        if (sqr(trunc(sqrt(n)))=n) then exit (true);
        exit (false);
end;
begin
        assign(f,fi);reset(f);
        assign(g,fo);rewrite(g);
        readln(f,n);
        if scp(n) then writeln(g,'yes') else
        writeln(g,'no');
        close(f);close(g);
end.

tham khảo:

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++) if (i%2!=0) t+=i;

cout<<t;

return 0;

}

uses crt;

var a,b,c:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

if (a>0) and (b>0) and (c>0) then

begin

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('day la 3 canh trong mot tam giac')

else writeln('day khong la 3 canh trong mot tam giac');

end

else writeln('vui long nhap 3 so lon hon 0');

readln;

end.

a) Vòng lặp while thực hiện 5 vòng lặp:
Vòng thứ nhất s=0 => n=1, s=1;
Vòng thứ hai s=1 => n=2, s=3;
Vòng thứ ba s=3 => n=3, s=6;
Vòng thứ tư s=6 => n=4, s=10;
Vòng thứ năm s=10 => n=5, s=15 kết thúc vòng lặp.
=> Vòng while sẽ kết thúc khi giá trị của s thay đổi không đáp ứng điều kiện tiếp tục vòng.

b) Vòng lặp while thực hiện vô hạn lần.
=> Giá trị của s luôn thỏa mãn điều kiện tiếp tục vòng while vì trong vòng while không thấy sự thay đổi của biến s (s luôn bằng 0 bé hơn 10).