Mô tả thuật toán:
Cho xâu S độ dài không quá 10^6 ('a' -> 'z'). Đếm có bao nhiêu kí tự xuất hiện trong S và số lần xuất hiện nhiều nhất
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.
Thuật toán:
B1. Nhập ba số dương a,b,c
B2. Nếu a+b>c và b+c>a và c+a>b thì in ra màn hình a,b,c là ba cạnh của tam giác. Ngược lại in ra a,b,c không là ba cạnh của tam giác.
B3. Kết thúc.
Chương trình:
var a,b,c: real;
begin
writeln('Nhap ba canh lan luot: '); read(a,b,c);
if (a<0) or (b<0) or (c<0) then
repeat
writeln('Khong hop le. Nhap lai ba canh lan luot: '); read(a,b,c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (b+c>a) and (c+a>b) then writeln('Ba so nay la do dai ba canh tam giac') else writeln('Ba so nay khong la ba canh cua tam giac');
end.
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
bool kt;
int main()
{
cin>>a>>b>>c;
kt=false;
if (a>0 && b>0 && c>0)
{
if (a*a==b*b+c*c) kt=true;
if (b*b==a*a+c*c) kt=true;
if (c*c==a*a+b*b) kt=true;
if (kt==true) cout<<"YES";
else cout<<"NO";
}
else cout<<"NO";
return 0;
}
Var a,b,c:real;
Begin
Write('Nhap a = ');readln(a);
Write('Nhap b = ');readln(b);
Write('Nhap c = ');readln(c);
If (a + b > c) and (b + c > a) and (c + a > b) then
Begin
If (a*a = b*b + c*c) or (b*b = a*a + c*c) or (c*c = a*a + b*b) then
Write('tam giac vuong')
Else write('Khong la tam giac vuong');
End
Else write('ba canh vua nhap khong lap thanh tam giac');
Readln
End.
Input: chiều cao h và cạnh a
Output: diện tích hình tam giác
B1: nhập 2 cạnh a,h
B2: s:=(a*h)/2;
B3: in ra màn hình
B4: kết thúc ct
Tham khảo:
- Sơ đồ khối mô tả thuật toán tính tổng của hai số a và b.
- Đầu vào: hai số a và b.
Đầu ra: tổng hai số a và b.
- Mô tả thuật toán theo cách liệt kê là:
+ Nhập giá trị a, giá trị b
+ Tính Tổng ← a + b.
In ra màn hình giá trị Tổng.
Chương trình:
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
dem:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then inc(dem);
writeln(dem);
readln;
end.
Uses crt;
Var st:string;
I,d:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
While st[d]=#32 do
Begin
Delete(st,d,1);
D:=length(st);
End;
For i:=1 to d do
If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
Writeln(st);
Readln;
End.
Uses crt;
Var st:string;
I,d:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
While st[d]=#32 do
Begin
Delete(st,d,1);
D:=length(st);
End;
For i:=1 to d do
If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
Writeln(st);
Readln;
End.
c:
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
cout<<a*b;
return 0;
}