J
2
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
TN
1
LB
12 tháng 3 2023
Program bangCuuChuong9;
uses crt;
var i, n: integer;
begin
clrscr;
n:=9;
for i:=1 to 10 do
begin
writeln('9x',i,'=',n*i);
end;
readln;
end.
S
2
8 tháng 2 2022
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+i;
writeln(s);
readln;
end.
8 tháng 2 2022
#include <iostream>
using namespace std;
int main () {
int tong = 0;
for (int i = 1 ; i <= 100; i++) tong = tong + i;
cout << " Tong S = " << tong;
return 0;
}
Chạy chương trìnhTong S = 5050
DQ
1
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!
D
1
13 tháng 12 2020
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if i mod 7=0 then inc(dem);
writeln('Co ',dem,' so chia het cho 7 trong khoang tu 1 toi ',n);
readln;
end.
NV
1
16 tháng 12 2016
Program Dien_tich_tam_giac;
Var
a,b,c:Integer;
p,s:Real;
Begin
Writeln('DIEN TICH TAM GIAC');
Writeln('------------------');
Write('-Nhap so thu nhat: ');
Readln(a);
Write('-Nhap so thu hai : ');
Readln(b);
Write('-Nhap so thu ba : ');
Readln(c);
If (a+b>c) And (b+c>a) And (c+a>b) Then
Begin
Writeln('+Dung la Tam giac');
p:=0.5*(a+b+c);
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('+Dien tich= ',s:10:2);
End
Else
Writeln('+Khong phai la Tam giac');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
program bang_nhan;
uses Crt;
var i,n:Integer
begin
clrscr;
n:=7;
for i:=1 to 10 do
WriteLn(n,'x',i:2,'=',n*i:3);
Readln
end.
Program cuu_chuong_7;
Var;
i : interger;
k : interger;
Begin;
for i := 1 to 10 do:
k := 7;
writeln (k, “x”, i, “=”, k * i);
End;