HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
Bài 2:
#include<iostream>; using namespace std; bool shh(int a){ int u, tong = 0; bool kq = false; for (u = 1; u < a; u++) { if (a % u == 0) { tong+= u; } } if (tong == u) { kq = true; } return kq; } int main() { int n, i, u, tong = 0, a[1000]; cout << "Nhap so phan tu: "; cin >> n; for (i = 1; i <= n; i++) { cout << "Phan tu thu " << i << ": "; cin >> a[i]; } cout << "Cac So hoan hao:" << endl; for (i = 1; i <= n; i++) { if (shh(a[i]) == true) { cout << a[i] << " "; } } return 0; }
#include<iostream>; using namespace std; int main() { int i,a,b; cout << "Nhap A,B: " << endl; cin >> a >> b; for (i = a; i <= b; i++) { if ((i % 10) == (i /10)) { cout << i << " "; } else if (i == 101){ cout << i; } } return 0; }
a/ Xét tam giác DBA và tam giác ABC có:
ADB = CAB (=90)
B chung
-> \(\Delta\)DBA\(\sim\)\(\Delta\)ABC(dpcm)
b/ Xét tam giác ABC vuông tại A
AB2 + AC2 = BC2(định lý py-ta-go)
hay 62 + 82 = BC2
=> BC2 = 100
=> BC = 10(cm)
Vì tam giác DBA đồng dạng tam giác ABC (cmt)
=> \(\frac{AD}{AC}=\frac{AB}{BC}\) (tính chất)
=> AD = (AB.AC):BC
=> AD = (6.8):10
=> AD = 4.8(cm)
c/ Vì BF là tia phân giác của góc ABD
=> \(\frac{AF}{FD}=\frac{AB}{BD}\) (1)
VÌ BF là tia phân giác của góc ABC
=> \(\frac{AE}{EC}=\frac{AB}{BC}\) (2)
Từ 1 và 2
=> \(\frac{AF}{FD}=\frac{AE}{EC}\)(dpcm)
uses crt; var n,i:integer; a: array[1..100] of integer; f: text; const fi = 'so.txt'; begin clrscr; write('Nhap so phan tu: ');readln(n); assign(f,fi); rewrite(f); for i:= 1 to n do begin write('Nhap so thu ',i,': '); readln(a[i]); if a[i] mod 2 = 0 then writeln(f,a[i]); end; close(f); readln end.
Câu 1:
uses crt; var xau: string; n,i:integer; begin clrscr; n:= 0; write('Nhap xau: ');readln(xau); for i:= 1 to length(xau) do if xau[i] = chr(32) then n:= n + 1; write('So ki tu la phim cach trong xau la: ', n); readln end.
Câu 2:
uses crt; var xau: string; n,i:integer; begin clrscr; n:= 0; write('Nhap xau: ');readln(xau); for i:= 1 to length(xau) do if xau[i] = upcase(xau[i]) then n:= n + 1; write('So ki tu in hoa trong xau la: ', n); readln end.
uses crt; var kitu,chuoi: string; n,i:integer; begin clrscr; n:= 0; write('Nhap 1 chuoi bat ki: ');readln(chuoi); write('Nhap 1 ki tu bat ki: ');readln(kitu); for i:= 1 to length(chuoi) do if kitu = chuoi[i] then n:= n + 1; write('So lan xuat hien cua ',kitu,' trong chuoi la: ', n); readln end.
uses crt; var n,i,max,min: integer; a: array [1..50] of integer; begin clrscr; write('Nhap so phan tu: ');readln(n); for i:= 1 to n do begin write('Nhap phan tu thu ',i,': '); readln(a[i]); end; max:= 0; min:= 0; for i:= 1 to n do begin if max < a[i] then max:= a[i]; if min > a[i] then min:= a[i]; end; writeln('So lon nhat la: ',max); write('So nho nhat la: ',min); readln end.
uses crt;
var n,i,max: longint;
a: array [1..200] of int64;
begin
clrscr;
write('Nhap so phan tu: ');readln(n);
for i:= 1 to n do
begin write('Nhap phan tu thu ',i,': '); readln(a[i]); end;
max:= 0;
if max < a[i] then max:= a[i];
write('So lon nhat la: ',max);
readln
end.
Viết ra màn hình:
5 5