Var s:string;
i,a:longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]='-') or (s[i]='*') or (s[i]='/') or (s[i]=',') then
inc(a);
writeln(a);
<span>end.</span>
10 символов
32 = 2^5 => 5 бит/символ
10 * 5 = 50 бит
В 1вложении ложь.Надеюсь помог.Так что там с репетитором?
Program P;
Var
n, i : Integer;
max, iMax: Integer;
Begin
Write('Enter 10 numbers ');
for i := 1 to 10 do
Begin
Read(n);
if i = 1 then
Begin
max := n;
iMax := i;
End
else
if n > max then
Begin
max := n;
iMax := i;
End;
End;
WriteLn('Max = ', max);
WriteLn('index = ', iMax);
ReadLn;
End.
#include <iostream>
using namespace std;
void main()
{
setlocale(NULL, "russian");
int n,
summa = 0;
cout << "Введите количество чисел " << endl;
cin >> n;
for (int i = 0, temp; i < n; i++){
cout << "Введите " << i + 1 << " элемент" << endl;
cin >> temp;
summa += temp;
}
cout << "Сумма " << n << " элементов равна: " << summa << endl;
system("pause");
};