var
str, num: <em>string</em>;
begin
readln(str); <em>//str := 'Day 10, mice 8: "Year" 7 is a mistake 91.';</em>
foreach c: char in str do
if (Char.IsDigit(c)) then
num += c;
for j: byte := 1 to length(num) - 2 do
for i: byte := 1 to length(num) - 1 do
if (num[i] < num[i + 1]) then
begin
str[1] := num[i];
num[i] := num[i + 1];
num[i + 1] := str[1];
end;
if (Integer.Parse(num) > 0) then
begin
while (num[num.Length - 1] = '0') do
num.Remove(num.Length - 1);
writeln('Да' + #13 + num);
end
else
writeln('Нет');
end.
Работает "из коробки", ничего делать не нужно.
/* C++ 11 */
#include <iostream>
using namespace std;
int main()
{
char answer;
const char correct = 'b';
cout << "Введите ваш ответ (a, b, c): ";
cin >> answer;
switch (answer) {
case correct:
cout << "Правильно!" << endl;
break;
default:
cout << "Неправильно!" << endl;
break;
}
}
2 Вещество - это то, из чего состоит физическое тело, то есть окружающие предметы.
3 Дома,на работе ( в школе ) , на улице , те же фонари , машины , вывески магазина.
4 Информационный процесс — процесс получения, создания, сбора, обработки, накопления, хранения, поиска, распространения и использования информации
5 Хранение информации, передача информации, обработка информации
6 Имея органы чувств, животные и растения воспринимают информацию. Например, цветы, получив информацию о наступлении темноты, закрывают свои бутоны. А животные по звуку могут определить приближение опасности. Информационные сигналы могут быть различной природы. Это могут быть звуки, свет, запахи, температура и химический состав среды, вспышки света. Растения и животные не могли бы нормально функционировать, если бы не получали и не использовали информацию об окружающей среде.
7 Решение задачи, перевод текста.
a={}
s=0.0
n=30
k=0
for i in 1..n
a[i]=rand(1..100)
s=s+a[i]
end
s=s/30
for i in 1..n
if (a[i] > s)
k=k+1
end
end
p k
===== PascalABC.NET =====
begin
ReadArrInteger(ReadInteger)
.Pairwise.Count(p -> Sign(p[0]) <> Sign(p[1]))
.Println
end.
Сначала вводим длину массива, затем все его элементы.