uses crt;

var x,i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 20 do

begin

readln(x);

if x mod 2<>0 then t:=t+x;

end;

write(t);

readln;

end.

- Trong Microsoft Word phiên bản từ 2000 trở lên, F4 sẽ lặp lại các thao tác bạn vừa đã thực hiện. - Alt + F4 đóng cửa sổ chương trình hiện đang hoạt động trong trên máy tính của bạn. - Tổ hợp phím Ctrl + F4 sẽ làm đóng cửa sổ hoặc tab đang mở trong cửa sổ đang hoạt động trên laptop.

Mở thanh địa chỉ trên Windows Explorer và Internet Explorer. - Thực hiện lại hoạt động cuối cùng (trên MS Word). - Ctrl + F4: Đóng cửa sổ đang làm việc, ví dụ như đóng tab một chương trình đang chạy.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a=0) and (b=0) then write('VSN)'

else if (a<>0) then write(b)

else if (b<>0) then write(0)

else write(-b/a);

readln;

end.

Vẫn sử dụng được nhưng là những phím tắt khác so với Word,... bạn nhé.

Ví dụ: 

Nhấn nút [HOME] -> chuyển con nháy về đầu dòng

Nhấn nút [END] -> chuyển con nháy về đầu dòng

Nhấn tổ hợp Ctrl + Y -> xóa 1 hàng trên FreePascal

Câu 21: A.LayOut

Câu 3: C

Em cần giúp điều gì em nhỉ?

Em cần giúp bài gì em nhỉ?

Đó ạ.

program Sum;

     N, i, S: integer;

begin

     write('Nhap N: ');

      readln(N);

     S := 0;

     for i := 1 to N do

           S := S + i * (3 * i - 2);

     writeln('Tong S = ', S);

end.