1. Используя данные таблицы Блюдо

Борщ

Котлета

Каша

Чай

35

40

20

3

Цена

отсортировать блюда по возрастанию цены. Вывести отсортированный вариант списка блюд. 2. Имеется список учеников и результаты трех тестов ( от 0 до 100). Определить средний каждого ученика по трем тестам, вывести список учеников по убыванию

среднего .

3. Известны данные о количестве мальчиков и девочек в нескольких классах.

Отсортировать названия классов по возрастанию процента мальчиков, определить количество классов, к которых мальчиков больше, чем девочек и вывести названия этих классов отдельно

4. Решить задачу, связанную с оценкой экономической деятельности группы предприятий

на основе известных данных:

Название предприятий

• Плановый обьем розничного товарооборота

• Фактический объем розничного товарооборота

Требуется определить:

1) процент выполнения плана каждым предприятием

ii) количество предприятий, недовыполнивших план на 10% и более

ill) наименьший плановый товарооборот IV) упорядочить предприятия по убыванию планового товарооборота.

Задача 1

Program Zadanie1;

var i,N:integer;

A:array[1..4]of integer;

Begin

readln(n);

A[1]:=round(int(N/1000));

A[2]:=round(int(N/100))-A[1];

A[3]:=round(int(N/10))-A[1]-A[2];

A[4]:=N-A[1]-A[2]-A[3];

if (A[1]:=A[4]) and (A[2]:=A[3]) and (A[3]:=A[2]) and (A[4]=A[1]) then writeln('полином');

end;

Задача 2

Program Zadanie2;

var i,N:integer;

A:array[1..3]of integer;

function Kub(a):integer;begin Kub:=a*a*a;end;

Begin

readln(n);

A[1]:=round(int(N/1000));

A[2]:=round(int(N/100))-A[1];

A[3]:=N-A[1]-A[2]-A[3];

if N*N=kub(A[1])+kub(A[2])+kub(A[3]) then writeln('равенство');

end;

Ниже жирным шрифтом приведен код программы на Паскале. В фигурных скобках обычным шрифтом - комментарии. Можно их оставить - компилятор не сможет их прочитать и программа все равно будет работать.

program printname;
var first_name, family_name : string;
i : byte;

begin
write('Введи свое имя: ');
readln(first_name); {считываем имя в переменную first_name}
write('Введи свою фамилию: ');
readln(family_name); {считываем фамилию в переменную family_name}
for i := 1 to 10 do writeln(family_name, ' ', first_name); {В цикле for со счетчиком i изменяющимся от 1 до 10 печатаем строки с фамилией и именем через пробел}
end.