bài 4 mình giúp bạn hồi nãy rồi nghen

1

uses crt;

var a,h: real;

begin

clrscr;

readln(a,h);

writeln(' dien tich tam giac la: ',a*h:4:2); 

readln;

end;

2.

uses crt;

var x,y:integer;

begin

clrscr;

readln(x,h);

writeln('x+y=',x+y);

writeln('x-y=',x-y);

writeln('x*y=',x*y);

readln;

end.

3.

uses crt;

var a,b: integer;

begin

clrscr;

writeln('c=', a div b);

writeln('d=', a mod b);

readln;

end.

là 10 chia cho 2 lấy phần dư á trong casio có cái phần chia R là nó đó

vd 10 mod 2=0 vì 10 chia 2 không có dư

9 mod 2=1 vì 9/2 =4 dư 1

cái đề của bạn nó rất là khặp khiển đấy

uses crt;

var x,y:integer;

begin

readln(x,y);

writeln(x,' ',y);

wrieln(y,' ',x);

readln;

end.

Chỉ chổ sai của mình đi bạn

Mình nói thật nhé là ko có 2 số lẽ liên tiếp nhé

vd n+2 với n là 1

thì số lẻ tiếp theo của nó là (n+2)+2 tức n+4 đấy còn liên tiếp (n+2)+1 là ko bao giờ xãy ra

uses crt;

var n,i,o,d:integer;

function ktnt(n:integer): integer;

var i,d:integer;

begin

d:=0;

for i:=1 to sqrt(n) do

if (n mod i=0) then d:=d+1;

if d=2 then ktnt=0

else ktnt=1;

end;

begin

readln(n);

writeln(' so nguyen to be hon hoac bang n la'); {a}

for i:=1 to n do

if ktnt(i)=0 then writeln(i);

writeln('so nguyen to nho nhat khong be hon n');

o:=n;

while o>0 do

begin

if ktnt(o)=0 then

begin

write(o);

break;

end;

o:=o+1;

end;

writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');

o:=0;

o:=1;

d:=0;

for i:=o+2 to n do

begin

if ktnt(i)=0 then

begin

d:=d+1;

write(i,' ');

if d<2 then continue;

end;

d:=0;

writeln;

end;

readln;

end.

Nếu ko sai thì thiếu dk