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.
Напишем программу, которая будет считать сумму всех чисел от 1 до 1000.
<span><span>#include <iostream>
</span>
using namespace std;<span>
int main()
</span>{
int i; // счетчик цикла
int sum = 0; //сумма чисел от 1 до 1000.
setlocale(0, "");
for (i = 1; i <= 1000; i++) // задаем начальное значение 1, конечное 1000 и задаем шаг цикла - 1.
{
sum = sum + i;
}
cout << "Сумма чисел от 1 до 1000 = " << sum <<
endl;
return 0;
}</span>
#include <iostream>
using namespace std;
int main(int argc, const char *argv[])
{
setlocale(LC_ALL,"Russian");
unsigned short int FROM = 20, TO = 32;
int s;
cout << "s = ";
cin >> s;
for (size_t i = FROM; i <= TO; i++) {
if (i % s == 0) {
cout << i << ' ';
}
}
return 0;
}
Ответ 2)
32000*32*4*х=503316780
х=503316480/4096000
х=112 секунд=2 минуты