Var s,s0:string;
begin
writeln('Введите строку s:');
readln(s);
writeln('Введите строку s0:');
readln(s0);
if pos(s,s0)>0 then writeln('ДА') else writeln('НЕТ');
end.
Пример:
Введите строку s:
две
Введите строку s0:
Даны две строки
ДА
Формулы: Рост = (( длина ступни - 15)*100)/15,8
Длина шага = длина ступни * 3 Ширина ступни = Рост / 18
<span>Длина пятки = Рост / 27 Голова = Рост / 8 </span>
Плечо = (Рост - 73,6) / 2,97 Предплечье = (Рост - 80,4) / 3,65
Бедро = (Рост - 69,1) / 2,24 Голень = (Рост - 72,6) / 2,53
<span>Идеальная масса = ((Рост * 3) / 10 - 450 + Возраст) * 0,25 + 45</span>
C++
<span>#include <iostream>
#include <algorithm>
#include <iterator>
#include <random>
#include <vector>
std::mt19937 gen {std::random_device()()};
std::uniform_int_distribution<int> uid(1, 10);
int main()
{
int N = 0;
std::cin >> N;
std::vector<unsigned> arr(N);
for (auto &i : arr) i = uid(gen);
std::reverse(std::begin(arr), std::end(arr));
std::copy(std::begin(arr), std::end(arr),
std::ostream_iterator<int>(std::cout, " "));
system("pause");
<span>}</span></span>
(e2+e3+e4)/3=3, значит сумма e2:e4 = 9
9+5=14
ответ: 14
1.Убрать вещи на места
Заправить кровать
Подмести пыль
Помыть пол
Протереть пыль
2.(Если на кухне.)
Помыть посуду
Протереть стол
Убрать еду на места.
Подмести пол
Помыть пол.