Kết quả tìm kiếm

Mô tả thuật toán: Bước 1: Nhập cr: chiều rộng Bước 2: Nhập cd: chiều dài Bước 3:Tính dt HCN=cd*cr Bước 4: In kết quả ra màn hình. Viết chương trình Uses crt; Var cd,cr,dt:longint; Begin Clrscr; Write('nhap chieu dai, chieu rong'); Readln(cd,cr); Dt:=cd*cr; Write('dien tich...

Nếu bạn lưu rồi Ctrl+F9 vẫn không được thì ctrl F9 đúng là chạy chương trình rồi nhưng do máy tính làm quá nhanh bạn không nhìn thấy được nên bạn có thể thêm câu lệnh readln; vào trước end. để xem kết quả hoặc là nhấn tổ hợp phím alt F9. Nếu không được bạn xem lại phần viết chương trình , có thể...

use crt; var a,i,,dem:longint; Begin clrscr; Readln(a); For a:=2 to n do Begin dem:=0; For i:= 2 to trunc(sqrt(a)) do If a mod i=0 then dem:=dem+1; If dem=0 then Writeln(a,' la so nguyen to'); End; Readln; End.