Имеется калькулятор который может выполнять только две команды 1) прибавить 2; 2) умножить на 3. какое минимальное число команд потребуется, чтобы с этого калькулятора из числа 1 получилось число 25? перед отключением компьютера информацию можно сохранить: а) в оперативной памяти; б) во внешней памяти в) в контроллере магнитного диска г) нет правильного ответа

1)   6 команд (1+2, 3+2, 5+2, 7х3, 21+2, 23+2  =  25) 2) г

Var a: array[1..3] of integer; i,max,min,n: integer; begin for i: =1 to 3 do begin readln(a[i]); {задаем 3 числа в массиве} if i=1 then begin min: =a[i]; max: =a[i]; end; {присваем максимальному и минимальному елементу масива первое значение} if min> a[i] then min: =a[i]; {находим минимальный елемент среди 3} if max< a[i] then max: =a[i]; {находим максимальный елемент среди3} end; for i: =1 to 3 do if (a[i]< > max) and (a[i]< > min) then n: =a[i]; {нахождение елемента между максимальным и минмальным} writeln(n); {вывод} end.

// pascalabc.net 3.0, сборка 1064 var   s: string;   n: integer; begin   write('введите строку: '); readln(s);   // a   n: =length(s);   writeln('количество символов в строке равно ',n);   // b   writeln(s[1],', ',s[2],', ',s[n]);   // c   writeln(ord(s[1]),', ',ord(s[n]));   // d   if s[1]=s[n] then writeln('первый и последний символы ')   else writeln('первый и последний символы не ');   // e   if n mod 2 = 0 then writeln('количество символов в строке четно')   else writeln('количество символов в строке нечетно');   // f   if pos('мама',s)> 0 then writeln('строка содержит слово "мама"')   else writeln('строка не содержит слово "мама"') end. тестовое решение: введите строку: тестовая строка со словом < мама> внутри количество символов в строке равно 39 т, е, и 210, 232 первый и последний символы не количество символов в строке нечетно строка содержит слово "мама"