Ну смотри ,легче всего предположить что апельсины по 5 ,так как их 3 и сумма 15,дале если мы узнали ,мы можем предположить что персики по 2 , так как их сумма 4, чтобы удостовериться предпологаем что киви 3 ,так как апельсин 5 +3 =8 , Проверяем персики + киви ,это равно 2+3+1 ,дальше по горизонтали Апельсин 5 + киви 3 ,сходится , 5 +2 +2 =9,тоже сходится , следовательно клубника очевидно равна 1 , проверяем 5+1+2=8, 1+3+2=6 ,сходится,вот и решение
При копировании кода формат испортился. Код должен выглядеть как на картинке
var r, l: real; //Радиус и длина окружности соответственно top, bottom: real; //Внешний и внутренний радиус кольца ex_num: word;begin write('Введите номер задания: '); read(ex_num); if ex_num = 1 then begin write('Введите радиус: '); read(r); writeln('Длина окружности: ', 2 * pi * r); writeln('Площать круга данного радиуса: ', pi * r * r); end else if ex_num = 2 then begin writeln('Введите длину окружности: '); read(l); write('Площадь круга: ', pi * sqr(l / 2 * pi)); end else begin write('Введите внешний радиус кольца: '); read(top); write('Введите внутренний радиус кольца: '); read(bottom); write('Площадь кольца: ', pi * top * top - pi * bottom * bottom); end;end.
Совокупность правил одобреная администратором.
обновление.
Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:
var s,a:string;
begin
write('Введите строку : ');
readln(s);
write('Введите слово : ');
readln(a);
if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
else writeln('В строке такого слова нет');
end.
Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть
Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет
Безбумажная технология - технология накопления, подготовки и обмена информацией с использованием компьютерной техники и средств связи.