My padlet by Smile4day

Bài 1

edupia250311 — 2022-11-28 13:08:38 UTC

Bài Điểm Tin

Bài 2

edupia250311 — 2022-11-28 13:09:44 UTC

Bài Căn Bậc 2 khi ko dùng lệnh SQRT

Bài 3

edupia250311 — 2022-11-28 13:11:27 UTC

Bài Căn Bậc 2 gốc

Bài 4

edupia250311 — 2022-11-28 13:12:12 UTC

Bài Đổi Giá Trị

Bài 5

edupia250311 — 2022-11-28 13:14:43 UTC

Bài kiểm tra 2 số có cùng tính chắn hay lẻ

Bài 6

edupia250311 — 2022-11-28 13:16:02 UTC

Bài dùng lệnh if.....then đầu tiên

Bài 7

edupia250311 — 2022-11-28 13:17:35 UTC

Bài tách chữ số và in ra màn hình

Bài 8

edupia250311 — 2022-11-28 13:20:13 UTC

Bài nhập số N năm và xét số đó có phải năm nhuận hay năm thường

Bài 9

edupia250311 — 2022-11-28 13:23:54 UTC

Bài nhập số a từ bàn phím và cho biết số đó là số chẵn hay số lẻ

Bài 10

edupia250311 — 2022-11-28 13:25:47 UTC

Bài tính tổng điểm

Bài 11 ( Delta)

edupia250311 — 2022-12-01 13:03:14 UTC

Căn Bậc...

Bài 12

edupia250311 — 2022-12-15 12:31:39 UTC

Xuân, Hạ, Thu, Đông .

Bài 13

edupia250311 — 2022-12-22 09:02:50 UTC

For ... do

Bai 14

edupia250311 — 2023-01-12 03:24:28 UTC

Program Bai14;
Uses Crt;
Var uoc, i, n : integer;
S : word;
Begin
Clrscr;
Writeln(' - - - - - - - - - - - - - - - ');
Writeln;
Write(' Day la chuong trinh tinh tong cac uoc cua 1 so ');
Writeln;
Write(' So ban nhap : ');
readln(n);
Write(' Cac uoc cua ',n,' la:');

S := 0;
for i := 2 to n-1 do
if (n mod i)=0 then
Begin
Write(i:2);
S := S+i;
end;
Writeln;
write(' Tong cac uoc cua thuc su cua ',n,' la : ',S);
Writeln;
Writeln(' - - - - - - - - - - - - - - - ');
Writeln;
readln

end.

Bài 15

edupia250311 — 2023-01-31 11:51:17 UTC

Bài 15 ( While do)

Bài 16

edupia250311 — 2023-01-31 11:54:34 UTC

how ?

Bài 17

edupia250311 — 2023-01-31 12:05:52 UTC

again .... How to ????

Bài 18

edupia250311 — 2023-02-14 14:43:47 UTC

uses crt;

var n:integer;

t, a:real;

begin

clrscr;

write('Nhap a: '); readln(a);

n:=0; t:=0;

while t<=a do

begin

n:=n+1;

t:=t+1/n;

end;

write('So nho nhat thoa man la: ',t:4:2);

readln

end.

Bài 19

edupia250311 — 2023-02-16 09:03:59 UTC

Uses Crt;
Var L5, L2, L1, n, m : longint;
Begin
Write(' n= ');
readln(n);
m := n;
L5 := n div 500;
n := n - L5 *500;

if N <> 0 then
Begin
L2 := n div 200;
n := n - L2 * 200;

if n <> 0 then
Begin
L1 := n div 100;
n := n- L1 * 100
end;
end;

Writeln(' De doi ',m,' thanh : ',L5,' 500k, ', L2 ,' 200k, ',L1,' 100k dong va ',n,'k dong le ');

readln
end.