K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

uses crt;

var i:byte;

begin

clrscr;

for i:=1 to 5 do

write('o');

readln;

end.

28 tháng 9 2020

DỄ MÀ..!!!

19 tháng 2 2023

Program HOC24;

var i,n,d: integer;

begin

write('Nhap N: '); readln(n);

write('Cac uoc cua 'n,' la: ');

for i:=1 to n do if i mod n = 0 do then

begin write(i,' '); d:=d+1; end;

writeln;

write('Co ',d,' so la uoc cua ',n);

readln

end.

13 tháng 11 2021

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(a+b:4:1);

readln;

end.

23 tháng 5 2022

program b1;

uses crt;

var a,b,s:real;

begin

clrscr;

writeln('Nhap hai so a va b: ');

readln(a,b);

s:=a+b;

write('Tong cua hai so a va b la: ',s:1:1);

readln;

end.

 

P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.

3 tháng 1 2022

C

18 tháng 4 2017
(* Date & Time: 13/01/13 01:37am Author: NV Nhan *) Program doingay_calender; Uses Crt; {Unit} Type kq=string[25]; Var cont: char; {Variable to repeat program} d, m, y, j, k: integer; Function doithu(d, m, y: integer):kq; {Ham nay tra ve thu cua ngay can xem} Const ngaythang: array[0..11] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); Var tong, i: integer; Begin tong := (y-1)*365 + (y-1) div 4; If (y mod 4) = 0 then ngaythang[1]:=29; {Nam nhuan} For i:=0 to m-2 do tong := tong + ngaythang[i]; tong := tong+d; {tong so ngay tu 01/01/01 den dd/mm/yyyy} Case (tong mod 7) of 0: doithu:='Thu Bay'; 1: doithu:='Chu Nhat'; 2: doithu:='Thu Hai'; 3: doithu:='Thu Ba'; 4: doithu:='Thu Tu'; 5: doithu:='Thu Nam'; 6: doithu:='Thu Sau'; End; {End case} End; {End function} Function doingayi(d, m, y:integer):integer; {Ham nay tra ve 1 so: neu la t2 thi tra ve 0, t3 thi tra ve 1...} Const ngaythang: array[0..11] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); Var tong, i: integer; Begin tong := (y-1)*365 + (y-1) div 4; If (y mod 4) = 0 then ngaythang[1]:=29; {Nam nhuan} For i:=0 to m-2 do tong := tong + ngaythang[i]; tong := tong+d; {tong so ngay tu 01/01/01 den dd/mm/yyyy} Case (tong mod 7) of 2: doingayi:=0; {Monday} 3: doingayi:=1; 4: doingayi:=2; 5: doingayi:=3; 6: doingayi:=4; 0: doingayi:=5; 1: doingayi:=6; {Sunday} End; {End case} End; {End function} Function max_day(m, y:integer):integer; {Number day of a month in year} Begin Case m of 1, 3, 5, 7, 8, 10, 12: max_day:=31; 4, 6, 9, 11: max_day:=30; 2: If y mod 4 = 0 then max_day:=29 else max_day:=28; End; {End case} End; {End function} {Main program} Begin Repeat {To repeat application until viewer press 'k'} Clrscr; {Clear screen} {Main code} gotoxy((80-length('Nhap ngay muon xem: ')) div 2, 3); {Center align} textcolor(white); {Text color} write('Nhap ngay muon xem: '); read(d, m, y); If (y<=0) or (m>12) or (m<1) or (d<1) or (d>31) or (((m=4) or (m=6) or (m=9) or (m=11)) and (d=31)) or (((y mod 4)<>0) and (m=2) and (d>28)) or ((m=2) and (d>29)) then {Dong dieu kien ghep kiem tra dung dinh dang ngay} Begin gotoxy((80-length('Nhap lai ngay thang nam!')) div 2, 5); {Center Align} textcolor(3); {Color: aqua} writeln('Nhap lai ngay thang nam!'); delay(1000); cont:='c'; End else {When date, month, year are true} Begin gotoxy((80-length('Ngay 00/00/0000 la thu xxx ')) div 2, 5); {Center Align} textcolor(2); {color: Green} write('Ngay '); If d<10 then write('0', d) else write(d); write('/'); If m<10 then write('0', m) else write(m); write('/'); write(y, ' la '); {Write Ngay xx/xx/xxx la thu xxx} textcolor(red); {Color: Red} write(doithu(d, m, y)); {In ra thu can xem} textcolor(7); {Color: Gray} writeln('.'); gotoxy((80-length('-----')) div 2, 6); write('-----'); gotoxy((80-length('Lich thang xx nam xxxx')) div 2, 7); {Center Align} writeln('Lich thang ', m, ' nam ', y); writeln; gotoxy(28, 9); textcolor(yellow); writeln(' 2 3 4 5 6 7 CN'); {Print month's calender} gotoxy(28, 11); For j:=0 to doingayi(1, m, y)-1 do write(' '); For k:=1 to max_day(m, y) do Begin If k=d then Begin textcolor(red); write(k:3); End else Begin textcolor(white); write(k:3); End; If doingayi(k, m, y)=6 then Begin writeln; writeln; write(' '); End; End; writeln; writeln; {End program and play again?} write('Muon tiep tuc nua khong? c/k '); cont:=readkey; End; Until cont='k'; {End repeat} End. {End Code}

Cái này mình tham khảo trên mạng nha, ko phải của mình làm!

1 tháng 12 2021

giúp em với

 

1 tháng 12 2021

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

write('a='); readln(a);

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

20 tháng 10 2021

uses crt;

begin

writeln('Xin chao cac ban');

writeln('Moi ban den voi Pascal');

readln;

end.