Напишите, , программу полностью, чтоб работала))

ответ:

var

    x, y: real;

begin

    readln(x);

    if (x< =5) then y: =sqr(x)

    else y: =sqrt(25*x);

    writeln(y);

end.

ответ:

объяснение:

1.

#include

#include

#include

#include "string.h"

using namespace std;

int transliterate(char* str, char* newstr){

    setlocale(0, "rus");

    for (; *str ! = 0; str++)

        {

                switch (str[0])

                {

                case 'а': strcat(& newstr[0], "a"); break;

                case 'б': strcat(& newstr[0], "b"); break;

                case 'в': strcat(& newstr[0], "v"); break;

                case 'г': strcat(& newstr[0], "g"); break;

                case 'д': strcat(& newstr[0], "d"); break;

                case 'е': strcat(& newstr[0], "e"); break;

                case 'ё': strcat(& newstr[0], "ye"); break;

                case 'ж': strcat(& newstr[0], "zh"); break;

                case 'з': strcat(& newstr[0], "z"); break;

                case 'и': strcat(& newstr[0], "i"); break;

                case 'й': strcat(& newstr[0], "y"); break;

                case 'к': strcat(& newstr[0], "k"); break;

                case 'л': strcat(& newstr[0], "l"); break;

                case 'м': strcat(& newstr[0], "m"); break;

                case 'н': strcat(& newstr[0], "n"); break;

                case 'о': strcat(& newstr[0], "o"); break;

                case 'п': strcat(& newstr[0], "p"); break;

                case 'р': strcat(& newstr[0], "r"); break;

                case 'с': strcat(& newstr[0], "s"); break;

                case 'т': strcat(& newstr[0], "t"); break;

                case 'у': strcat(& newstr[0], "u"); break;

                case 'ф': strcat(& newstr[0], "f"); break;

                case 'х': strcat(& newstr[0], "ch"); break;

                case 'ц': strcat(& newstr[0], "z"); break;

                case 'ч': strcat(& newstr[0], "ch"); break;

                case 'ш': strcat(& newstr[0], "sh"); break;

                case 'щ': strcat(& newstr[0], "ch"); break;

                case 'ъ': strcat(& newstr[0], "''"); break;

                case 'ы': strcat(& newstr[0], "y"); break;

                case 'ь': strcat(& newstr[0], "''"); break;

                case 'э': strcat(& newstr[0], "e"); break;

                case 'ю': strcat(& newstr[0], "yu"); break;

                case 'я': strcat(& newstr[0], "ya"); break;

                case 'а': strcat(& newstr[0], "a"); break;

                case 'б': strcat(& newstr[0], "b"); break;

                case 'в': strcat(& newstr[0], "v"); break;

                case 'г': strcat(& newstr[0], "g"); break;

                case 'д': strcat(& newstr[0], "d"); break;

                case 'е': strcat(& newstr[0], "e"); break;

                case 'ё': strcat(& newstr[0], "ye"); break;

                case 'ж': strcat(& newstr[0], "zh"); break;

                case 'з': strcat(& newstr[0], "z"); break;

                case 'и': strcat(& newstr[0], "i"); break;

                case 'й': strcat(& newstr[0], "y"); break;

                case 'к': strcat(& newstr[0], "k"); break;

                case 'л': strcat(& newstr[0], "l"); break;

                case 'м': strcat(& newstr[0], "m"); break;

                case 'н': strcat(& newstr[0], "n"); break;

                case 'о': strcat(& newstr[0], "o"); break;

                case 'п': strcat(& newstr[0], "p"); break;

                case 'р': strcat(& newstr[0], "r"); break;

                case 'с': strcat(& newstr[0], "s"); break;

                case 'т': strcat(& newstr[0], "t"); break;

                case 'у': strcat(& newstr[0], "u"); break;

                case 'ф': strcat(& newstr[0], "f"); break;

                case 'х': strcat(& newstr[0], "ch"); break;

                case 'ц': strcat(& newstr[0], "z"); break;

                case 'ч': strcat(& newstr[0], "ch"); break;

                case 'ш': strcat(& newstr[0], "sh"); break;

                case 'щ': strcat(& newstr[0], "ch"); break;

                case 'ъ': strcat(& newstr[0], "''"); break;

                case 'ы': strcat(& newstr[0], "y"); break;

                case 'ь': strcat(& newstr[0], "''"); break;

                case 'э': strcat(& newstr[0], "e"); break;

                case 'ю': strcat(& newstr[0], "yu"); break;

                case 'я': strcat(& newstr[0], "ya"); break;

                default: { char temp[2] = { str[0], 0} ; strcat(& newstr[0], & temp[0]); }

                }

        }

}

int main()

{

        char* x = "я обожаю программировать на турбо паскале! ";

        char y[100] = {0};

        transliterate(x, & y[0]);

        printf("%s\n", y);

return 0;

}

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! №1 begin   var s: =readlnstring;   s: =s.regexreplace('ма','');   writeln('длина=',s.length,': ',s) end. пример ведьма измазала маслом карман гнома длина=25: ведь иззала слом карн гно №2 begin   var s: =readlnstring;   writeln('количество букв "с" равно ',s.where(t-> t='с').count) end. пример ассистент профессора сидел за столом и что-то писал количество букв "с" равно 8 №3 begin   var s: =readlnstring;   var d: =s.where(t-> t='е').count-s.where(t-> t='о').count;   if d> 0 then writeln('буква "е" встречается чаще буквы "о"')   else     if d< 0 then writeln('буква "о" встречается чаще буквы "е"')     else writeln('буквы "е" и "о" встречаются динаковое число раз') end. пример мороз и солнце; день чудесный! еще ты дремлешь, друг прелестный. буква "е" встречается чаще буквы "о"