Hồ Văn Tiến Mạnh's Profile

a,c là câu đơn b,d là câu ghép

hoa lá, quả chín, những vạt, con suối

biếu xén quà cáp

quê cũ

vứt 

uses crt;

var k,i:integer;

      n:array[1..100] of longint;

begin 

readln(k);

for i:= 1 to k do 

 readln(n[i]);

for i:= 1 to k do 

  if n[i] mod 10=0 then writeln(n[i]);

readln

end.

procedure tong;

var a,b:longint;

begin 

writeln('Moi nhap vao 2 so nguyen: ');

Readln(a,b);

writeln('Tong binh phuong cua 2 so nguyen do la: ',sqr(a+b));

end; 

uses crt;

var n,a,b,c:longint;

begin

writeln('Moi nhap vao mot so co 3 chu so: ');

readln(n);

a:=n div 100;

b:=(n div 10) mod 10;

c:=n mod 100;

writeln('Hang tram la: ',a);

writeln('Hang chuc la: ',b);

write('Hang don vi la: ',c);

readln

end.

uses crt;

dùng lệnh if i mod 2 =1 để xác định số lẻ trong mảng và cộng lại bằng một biến s

a) cân như thường

b) m=D.V

có khối lượng riêng D của sỏi dùng bình đo độtính thể tích V suy ra khối lượng m