Задание 1
1) даны векторы a= (x1, y1, z1), b= (x2, y2, z2). определение координат вектора C=a+b, вычисление скалярных произведений векторов.
2) представлена схема троллейбусного маршрута города Алматы (номер маршрута и расстояние, передаваемое случайным числом с км до 7). Расстояние на экране от какого-либо числа, а выходит большой номер маршрута.
3) в файле написано ряд, состоящий из нескольких слов. Найти, сколько раз встречается буква "А".
Задание 2
1) в переменной S – возраст Саши, м – Возраст Маши, N – возраст Наташи. Отображение уведомления по сверке возраста.
2) массивный (-50), состоящий из случайно сформированного N элемента;
20) настройка, определенная определенным пользователем в интервале (вводится цифра 1 (сортировка по убыванию) или 2 (сортировка по росту) с клавиатуры.
3) представлен файл, состоящий из нескольких рядов. Функция копирует всю строку в файле. Если функция найдет число в каком –либо ряду, то вместо нее переносит слово, соответствующее порядковому числу, из первой строки.
Задание 3
1) обнаружение геометрической прогрессии b24, зная b16, b20.
2) массивы А(m) и B(m) вводятся с клавиатуры. Их необходимо сравнить по соответствующим элементам. Вывод номера элемента массива, в котором заканчиваются одинаковые числа.
3) ввести 3 предложения, объединить их в одну строку, вывести его на экран, вычислить количество слов.
a,b,d,K,kp:integer;
P:boolean;
Begin
kp:=0;
ReadLn(a,b);
if (a = 1)or(a = 2) then
Begin
kp:=2;
Write(2,' ',3)
end
else if a = 3 then
Begin
kp:=1;
Write(3);
End;
if a < 5 then a:=5
else if a mod 2 = 0 then a:=a+1;
While a<=b do
Begin
K:=Trunc(Sqrt(A));
d:=3;
P:=true;
While d <= K do
Begin
if A mod d = 0 then P:=false;
d:=d+2
End;
if P then
Begin
kp:=kp+1;
Write(' ',a);
End;
a:=a+2
End;
if kp = 0 then Write(0)
End.