Написать программу на pascal abc. дано предложение. вывести строку в обратном порядке. вывести столбиком все его буквы "и", стоящие на четных местах.

Var   str : string;   i, count : integer; begin   {часть 1 - обратный порядок}   write('введите строку: ');   readln(str);   write('результат: ');   for i : = length(str) downto 1 do     write(str[i]);   {часть 2 - считаем "и"}   count : = 0;   for i : = 1 to length(str) do     if (str[i] = 'и') and (i mod 2 = 0) then       count : = count + 1;   writeln;             {переходим на следующую строку}   for i : = 1 to count do     writeln('и'); end.

1. #include using namespace std; int main (){ int a, b; cout < < "введите числа: " < < endl; cin > > a > > b; if (a < b){ cout < < "минимальное число - первое." < < endl; } else if (a==b){ cout < < "числа равны." < < endl; } else { cout < < "минимальное число - второе." < < endl; } } 2. #include using namespace std; int main (){ int a; cout < < "сколько часов играет тим? " < < endl; cin > > a; if(a > = 8){ cout < < "тим здоров." < < endl; } else { cout < < "тим болен." < < endl; } }

1. #include #include using namespace std; int main (){ int a; cout < < "введите число: " < < endl; cin > > a; cout < < pow(a,2) - 2*a < < endl; } 2. #include #include using namespace std; int main (){ int a, b; cout < < "введите два числа: " < < endl; cin > > a > > b; cout < < pow(a,2) + pow(b,*b); } 3. #include #include using namespace std; int main (){ int a, b; cout < < "введите два числа: " < < endl; cin > > a > > b; cout < < "молуль первого числа: " < < abs(a) < < endl < < "модуль второго числа: " < < abs(b) < < endl; }