<h2>Код</h2>
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL, "Russian");
string s = "+++++_-_-_-.*.*.*.*";
unsigned int plusValue = 0, minusValue = 0, starValue = 0;
for(int i = 0; i < s.length(); i++){
if(s[i] == '+'){
plusValue = plusValue + 1;
}
else if(s[i] == '-'){
minusValue = minusValue + 1;
}
else if(s[i] == '*'){
starValue = starValue + 1;
}
}
cout << "Всего " <<
plusValue << " плюсов, " <<
minusValue << " минусов и " <<
starValue << " звёздочек.";
return 0;
}
<h2>Проверка</h2>
Всего 5 плюсов, 3 минусов и 4 звёздочек.
Pascal
Алгоритм1
var
s : string;
n1,n2 : integer;
i,l : integer;
begin
readln (s);
n1 := 0; n2 := 0;
l := Length(s);
for i := 1 to l do
if (s[i] = ' ') then
if n1 = 0 then
n1 := i
else
n2 := i;
if n2 = 0 then
s := ' '
else
s := copy(s,n1+1,n2-n1-1);
writeln (s);<span>
end.
Алгоритм2
var
s : string;
n1,n2 : integer;
i,l : integer;
r : boolean;
begin
readln (s);
n1 := 0; n2 := 0;
r := false;
l := Length(s);
i := 1;
While (i<=l) and (not r) do
begin
if s[i] = ' ' then
begin
n1 := i;
r := true;
end;
i := i +1;
end;
r :=false;
i := l;
While (i>0) and (not r) do
begin
if s[i] = ' ' then
begin
n2 := i;
r := true;
end;
i := i -1;
end;
if n2 = n1 then
s := ' '
else
s := copy(s,n1+1,n2-n1-1);
writeln (s);<span>
end.</span></span>
Самые разные. Например, мини-проектор. Было немало концептов с такой идеей. Даже есть серийный планшет с таким проектором (Lenovo, если память не изменяет). Также можно сделать функцию весов, работающая с помощью дисплея смартфона. На данный момент есть несколько смартфонов, которые умеют распознавать силу нажатия на экран. Например, тот же iphone 7(6s). И если эту технологию доработать, то это вполне реальная и полезная функция
(i) язык С++
решетка inelucle (знак менше) iostream (знак больше)
using namespacestd
intmain()
int ×
cin ≥≥×
×≈×процент 10
out меньше знак икс больше знак endl
(ii) остаток от деления 345 на 10равно5
конечное икс равно 5
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1
begin
var a,b,c:integer;
Write('Введите три натуральных числа: '); Read(a,b,c);
var s:=a+b+c;
var k:=Trunc(sqrt(s));
if k*k=s then Writeln('Сумма чисел - квадрат ',k)
else Writeln('Сумма чисел не является квадратом целого')
end.
<u><em>Тестовое решение</em></u>
Введите три натуральных числа: 13 4 8
Сумма чисел - квадрат 5
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2
begin
var a,b,c:integer;
Write('Введите три натуральных числа: '); Read(a,b,c);
var s:=power(a*b*c,1/3);
if s=int(s) then Writeln('Среднее геометрическое - целое число')
else Writeln('Среднее геометрическое - нецелое число')
end.
<u><em>Тестовое решение</em></u>
Введите три натуральных числа: 16 8 15
Среднее геометрическое - нецелое число