Напишите программу, которая содержит тест (pascal) уровень самооценки тест отвечая на вопросы, указывайте, как часты для вас перечисленные ниже состояния по такой шкале: часто – 4 ; часто – 3 ; иногда – 2 ; редко – 1 ; никогда – 0 . 1. я часто волнуюсь понапрасну. 2. мне хочется, чтобы мои друзья подбадривали меня. 3. я боюсь выглядеть глупцом. 4. я беспокоюсь за свое будущее. 5. внешний вид других куда лучше, чем мой. 6. как жаль, что многие не понимают меня. 7. чувствую, что я не умею как следует разговаривать с людьми. 8. люди ждут от меня многого. 9. чувствую себя скованным. 10. мне кажется, что со мной должна случиться какая-то неприятность. 11. меня волнует мысль о том, как люди относятся ко мне. 12. я чувствую, что люди говорят про меня за моей спиной. 13. я чувствую себя в безопасности. 14. мне не с кем поделиться своими мыслями. 15. люди не особенно интересуются моими достижениями. чтобы определить уровень своей самооценки, нужно сложить все по утверждениям. а теперь посчитайте, сколько получится в сумме. если меньше 10, вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства. возьмите за правило принципы: всякая конфликтная ситуация возникла из искры, которую вы высекли сами или разжечь. если сумма превышает 30, то вы себя недооцениваете. набранное количество от 10 до 30 свидетельствует о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности. вам по плечу серьезные дела. дерзайте!

Var s:string;
k:integer;

procedure res(s:string;var k:integer);
begin;
if s='очень часто' then k:=k+4;
if s='часто' then k:=k+3;
if s='иногда' then k:=k+2;
if s='редко' then k:=k+1;
end;

begin;
writeln('1. Я часто волнуюсь понапрасну.');
readln(s);
res(s,k);
writeln('2. Мне хочется, чтобы мои друзья подбадривали меня.');
readln(s);
res(s,k);
writeln('3. Я боюсь выглядеть глупцом.');
readln(s);
res(s,k);
writeln('4. Я беспокоюсь за свое будущее.');
readln(s);
res(s,k);
writeln('5. Внешний вид других куда лучше, чем мой.');
readln(s);
res(s,k);
writeln('6. Как жаль, что многие не понимают меня.');
readln(s);
res(s,k);
writeln('7. Чувствую, что я не умею как следует разговаривать с людьми.');
readln(s);
res(s,k);
writeln('8. Люди ждут от меня очень многого.');
readln(s);
res(s,k);
writeln('9. Чувствую себя скованным.');
readln(s);
res(s,k);
writeln('9. Чувствую себя скованным.');
readln(s);
res(s,k);
writeln('10. Мне кажется, что со мной должна случиться какая-то неприятность.');
readln(s);
res(s,k);
writeln('11. Меня волнует мысль о том, как люди относятся ко мне.');
readln(s);
res(s,k);
writeln('12. Я чувствую, что люди говорят про меня за моей спиной.');
readln(s);
res(s,k);
writeln('13. Я чувствую себя в безопасности.');
readln(s);
res(s,k);
writeln('14. Мне не с кем поделиться своими мыслями.');
readln(s);
res(s,k);
writeln('15. Люди не особенно интересуются моими достижениями.');
readln(s);
res(s,k);
if k<10 then
writeln('Вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства. Возьмите за правило принципы: всякая конфликтная ситуация возникла из искры, которую вы высекли сами или разжечь.');
if k>30 then
writeln('Вы себя недооцениваете);
if (k>=10) and (k<=30) then
writeln('Набранное количество от 10 до 30 свидетельствует о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности. Вам по плечу серьезные дела. Дерзайте!');end.

Const A:array[1..15] of string =('1. Я часто волнуюсь понапрасну.','2. Мне хочется, чтобы мои друзья подбадривали меня.','3. Я боюсь выглядеть глупцом.','4. Я беспокоюсь за свое будущее.','5. Внешний вид других куда лучше, чем мой.','6. Как жаль, что многие не понимают меня.','7. Чувствую, что я не умею как следует разговаривать с людьми.','8. Люди ждут от меня очень многого.','9. Чувствую себя скованным.','10. Мне кажется, что со мной должна случиться какая-то неприятность.','11. Меня волнует мысль о том, как люди относятся ко мне.','12. Я чувствую, что люди говорят про меня за моей спиной.','13. Я чувствую себя в безопасности.','14. Мне не с кем поделиться своими мыслями.','15. Люди не особенно интересуются моими достижениями.');
B:array[0..5] of string=('Отвечая на вопросы, указывайте, как часты для Вас перечисленные ниже состояния по такой шкале:','очень часто – ;','часто – ;','иногда – ;','редко – ;','никогда – ');
var i,n,s:integer;
begin
for i := 0 to 5 do
writeln(b[i]);writeln;
for i := 1 to 15 do begin
writeln(a[i]);Read(n);s:= s + n;end;
if s < 10 then write ('вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства.',s)
else if (S >= 10 ) and (S <= 30 ) then
write ('о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности.',s)
else
write ('вы себя недооцениваете',s);end.

1а) Почти любые, даже в играх есть карты
1б) В данном случае похоже подразумевается навигатор по картам. Т.е. некое ПО позволяющая работать с моделями карт, создавать разные виды, передвигаться по картам и тд
1в) Собственно карты разных типов и маштабов, объекты на картах с данными об этих объектах, дороги как связи и данные о них тоже, данные о транспорте и тд
1г) С векторными изображениями легче работать в плане маштабирования, изменения, растягивания и тп. Потому все изображения приводятся к векторному типу частично или полностью.

2) Как пример возьмем ЯндехКарты. Нахождение обьекта по адресу, нахождение по текущему местоположению если есть чем определить, выдача данных об обьекте (как набор данных об организациях которые там находятся), проложение маршрута от точки к точке, навигация пробок, навигация по фото местности (панорама), измерение расстояния некой траектории (линейка) и тд

3) Быстрее всего найти по названию поиском, тут опорными точками могут область и район, если вдруг объектов с таким названием больше одного
Если искать зрительно, то легче всего ориентируясь по водным объектам и горам, возможно лесам, если они показаны. Другим городам и областям. Но для этого надо знать примерно карту

def parse(array:list):

suitable = []

for item in array:

 if str(item)[::-1] == '4':

  suitable.append(item)

return suitable

def main():

nums = [int(i) for i in input().split()]

assert sum(nums) <= 30000

assert len(nums) <= 1000

suitable = parse(nums)  

try:

 print(min(suitable))

except ValueError:

 print('0')

if __name__ == '__main__':

main()

Объяснение:

Сайт гарантированно сломает код, по скриншоту его можно восстановить.

Принцип работы:

Получаем на вход список чисел

Утверждение - сумма всех элементов меньше 30 000

Утверждение - всего в списке не более 1000 элементов

Если одно из утверждений не верно, программа завершает работу с ошибкой AssertionError (Ошибка утверждения)

Прогоняем список через функцию parse, результат сохраняем в переменную suitable (подходящие)

Пытаемся вывести на экран минимальный элемент списка suitable.

Если список пуст, будет возбуждено исключение ValueError, перехватываем его, вместе ошибки выводим в консоль 0

Функция Parse: <= Список

Локальная переменная suitable типа list (список)

Для каждого элемента списка, переданного функции -

Если последний символ в строковом представлении элемента списка есть 4 - добавляем в список suitable, иначе - пропускаем итерацию

Возвращаем список suitable