Если надо решение, то напишу. А ответ: 162.198.0.128
1.Для чего предназначены базы даных?-Для осуществления хранения, поиска и сортировки данных.
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018
</h3>
begin
var count := 0;
var a := Range(ReadInteger('a='), ReadInteger('b='))
.Select(t -> t.ToString.JoinIntoString(' ').ToIntegers)
.Where(t -> t.Count.IsEven);
foreach var x in a do
begin
var (b, i) := (true, 0);
while (b) and (i < x.Length - 1) do
begin
if (x[i].IsOdd and x[i + 1].IsOdd) or (x[i].IsEven and x[i + 1].IsEven)
then b := false;
inc(i, 2);
end;
if (i = x.Length) and (b) then inc(count);
end;
count.Println;
end.
100101101 вот это ответ на 301
1) Автомобиль приехал по трассе S километров за t часов. Написать программу, которая определит среднюю скорость его движения. S, t - веществ. числа, вводятся с клавиатуры. Протокол работы программы должен выглядеть примерно так:
ВВедите расстояние(км.)-120
Введите время движения(час.)-1.2
Автомобиль двигался со скоростью 100 км/час[/B]
2)Напишите программу для обмена значениями двух целых переменных. Дополнительные переменные использовать нельзя. Если вы используете переменные X, Y, то других переменных в программе быть не должно.. протокол программы должен быть таким:
ВВедите два целых числа: 3 -5
на входе: Х=3, У=-5
на выходе Х=-5 ,У=3
3) Напишите программу циклического сдвига трех целых переменных по схеме X-> Y, Y-> Z, Z-> X..
В программе может быть использована одна дополнительная переменная. Протокол работы :
Введите три целых числа: 3 -5 7
На входе х=3, у=-5, z=7
На выходе х=7, у=3, z=-5