do la cau mot con bai hai to se gui sau

uses crt;

var n,i,d,k:integer;

begin

clrscr;

writeln('nhap vao so n');readln(n);

for i:=1 to n do

begin

if i mod 2=0 then d:=d+1;

if i mod 2=1 then k:=k+1;end;

writeln('so cac so chan la:',d:4);

writeln('so cac so le la:',k:4);readln;end.

tìm nghiệm chứ ko fai tìm x

uses crt;

var n,a,b,c:integer;

begin

clrscr;

writeln('nhap vao so n la');readln(n);

writeln('cac chu so trong so n la');

if (n>=1000) and (n<=3000) then begin

a:=n mod 10; writeln(a:4);

n:=n div 10;

b:=n mod 10; writeln(b:4);

n:=n div 10;

c:=n mod 10; writeln(c:4);

n:=n div 10; writeln(n:4);end

else writeln('khong xac dinh');readln;end.

uses crt;

var n:integer;

begin

clrscr;

repeat

writeln('nhap vao mot so bat ki la');readln(n);

until n<>0;

if n>0 then writeln('day la so duong')

else writeln('day la so am');readln;end.

uses crt;

var n:integer;

begin

clrscr;

writeln('nhap vao mot so bat ki la');readln(n);

if n>0 then writeln('day la so duong')

else writeln('day la so am');readln;end.

18 tick nhaĐặng Minh Quang

uses crt;

var n,i:longint; s:real;

begin

clrscr;

s:=0;

writeln('nhap vao n=');readln(n);

writeln('tong cua A la');

for i:=1 to n do

s:=s + 1/(i*(i+2));

writeln(s:4:3);readln;end.

duong nguyenvan làm sai rồi. Biến s phải khai báo thuộc kiểu real mới tính được chứ!

uses crt;

var a,b,c : integer;

begin

clrscr;

writeln('nhap vao ba so bat ki la'); readln(a,b,c);

if (a+b>c) and (b+c>a) and (c+a>b) then begin

if (a=b) or (b=c) or (c=a) then begin

if (a=b) and (b=c) then writeln('day la ba canh tam giac deu')

else writeln('day la ba canh tam giac can');end;

if (a*a=b*b+c*c) or (b*b=c*c+a*a) or (c*c=a*a+b*b) then

writeln('day la ba canh tam giac vuong');end

else writeln('ba so vua nhap khong phai la ba canh tam giac nen khong xac dinh');readln;end.