Program Task; Var s: String; i, r: Integer; Begin WriteLn('Введите строку:'); ReadLn(s); For i := 1 To Length(s) Do If (s[i] = 'a') Or (s[i] = 'A') Or (s[i] = 'а') Or (s[i] = 'А') Then r := r + 1; WriteLn('Результат: ', r); ReadLn; End.
#include <iostream> #include <cstdio> #include <cmath> using namespace std; int main() { int a, b, c; cin>>a>>b>>c; if ((a + b < c) || (a + c < b) || (b + c < a)) { cout<<"Не треугольник"; return 0; } if ((a * a + b * b == c * c) || (a * a + c * c == b * b)|| (c * c + b * b == a * a)) { cout<<"Прямоугольный"; return 0; } if ((a * a + b * b > c * c) || (a * a + c * c > b * b)|| (c * c + b * b > a * a)) cout<<"Остроугольный"; else cout<<"Тупоугольный"; }
Var s: String;
i, r: Integer;
Begin
WriteLn('Введите строку:');
ReadLn(s);
For i := 1 To Length(s) Do
If (s[i] = 'a') Or (s[i] = 'A') Or (s[i] = 'а') Or (s[i] = 'А') Then
r := r + 1;
WriteLn('Результат: ', r);
ReadLn;
End.