Это вперед на 10 символов надеюсь не ошиблась
Я не совсем поняла задание . Но тем не мение вот что получается:
Селекционер проводит эксперименты над растением -«черный ящик».
Начинающий пользователь работает за компьютером. - Сестра изучает
наблюдает за испытаниями нового автомобиля. -Конструктор
яркость экрана домашнего телевизора-Папа регулирует
возможности фотокамеры, к которой нет документации -«черный ящик»
назначает лечение пациенту.-Врач ставит диагноз
старинные часы-Часовщик ремонтирует
{1 Способ}
var n,k:integer;
s: string;
begin
writteln('введите n,k');
readln(n,k);
str(n,s);{преобразуем число n в строку s}
witeln(s[length(s)-k+1]); {length(s) -длина строки}
end.
{2 задача}
cons nmax=20;
var a:array [1..nmax] of integer;
min1,min2,i,k1,k2,N:integer;
begin
writeln('введите кол-во элементов массива');
readln(N);
writeln('введите элементы массива');
for i:=1 to N do read(a[i]);
min1:=a[1]; k1:=1; {k1 -индекс первого минимального элемента}
for i:=2 to n do
if min1>a[i] then
begin
min1:=a[i];
k1:=i
end;
{исключаем найденный минимальный элемент из массива- можно и по другому}
for i:=k1+1 to N do
a[i-1]:=a[i];
k1:=n-1;
end;
min2:=a[1]; k2:=1; {k1 -индекс первого минимального элемента}
for i:=2 to n do
if min2>a[i] then
begin
min2:=a[i];
k2:=i
end;
writeln(min1:5,min2:5)
{если нужно было сохранить массив в начале программы надо ввести дополнительный массив }
end.
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
Console.Write("n = ");
int n = int.Parse(Console.ReadLine());
if (n > 4 && n < 21) Console.WriteLine("Мне {0} лет", n);
else
{
int a = n % 10;
if (a == 1) Console.WriteLine("Мне {0} год", n);
else
if (1 < a && a < 5) Console.WriteLine("Мне {0} года", n);
else Console.WriteLine("Мне {0} лет", n);
}
Console.ReadKey();
}
}
}
1 символ - 1 байт => 30 символов - 30 байтов