В 5 литровый набираешь воду и выливаешь в 9 литровый.
В 5 литровый снова набираешь воду и выливаешь в 9 литровый сколько влезет. 9 литровый получается полный, а в 5 литровом остается 1 литр.
Из 9 литрового выливаешь всю воду и выливаешь в него 1 литр из 5 литрового.
В 5 литровый набираешь воду и выливаешь в 9 литровый.
В 9 литровом получается 6 литров воды.
Как-то так
3) Укажите правильную последовательность действий при работе с базами данных (составить последовательность из букв):
c. Продумать структуру базы данных<span>
</span>b. Дать имя каждому полю в базе данных<span> </span><span>
a. Занести данные в таблицу </span>
<span>d. Осуществить сортировку записей в базе данных </span>
<span>4) Сортировка – это: </span>
<span>c) расположение записей в определённом порядке </span>
<span>5) Примером базы данных может служить: </span>
<span>c) Телефонная книга </span>
<span>6) В каком из перечисленных типов полей, данные могут выглядеть таким образом: 01. 07. 85? </span>
<span>d) В поле дата/время </span>
<span>7) Какая из перечисленных баз данных имеет представленный ниже вид: </span>
<span>№ фамилия имя класс физика история </span>
<span>1. Горин Петя 10 а 4 5 </span>
<span>2. Петров Юра 10 б 3 4 </span>
<span>3. Васильева Катя 11 а 5 5 </span>
<span>4. Петрова Юля 11 а 4 4 </span>
<span>d) Табличная </span>
<span>8) Сколько полей в представленной выше базе данных? </span>
<span>d) 6 </span>
<span>9) БД содержит информацию об учениках компью¬терной школы: имя; номер группы; балл за тест; балл за задание; общее количество баллов. Какого типа должно быть поле «Общее количество бал¬лов»? </span>
<span>c) числовое; </span>
<span>10) БД содержит информацию о каждой собаке из клуба соба¬ководства: кличка, порода, дата рождения, пол, количестве медалей. Какого типа должны быть поля? </span>
<span>b) текстовое, текстовое, дата, текстовое, числовое; </span>
<span>11) Для отбора записей об учащихся, которые имеют по физике оценку «3» , а по истории не ниже «4» , нужно задать условие отбора по столбцам «физика» и «история» соответственно: </span>
<span>c) = 3 и >=4 </span>
<span>12) Для выбора текстовых значений, начинающихся на букву « К » и состоящих из 4 символов, нужно задать условие отбора: </span>
<span>c) К??? </span>
Type
LinMass = array [1..1000] of Integer;
var
A: LinMass;
N, i, j: Integer;
begin
Write('Количество элементов массива: ');
ReadLn(N);
for I := 1 To N Do
begin
Write('Введите A[', I, '] ');ReadLn(A[i]);
end;
i := 1;
while (i <= n) do
if (A[i] >= 100) and (A[i] <= 999) and (A[i] mod 2 = 0) and (A[i] mod i = 0) then begin
for j := i + 1 to n do
A[j - 1] := A[j];
n := n - 1
end
else i := i + 1;
for I := 1 To N Do
write(a[i]:6);
end.
В последней задаче понадобятся переводные коэффициенты.
1 берковец=10 пудов=400 фунтов=38400 золотников.
Отсюда:
1 фунт = 38400/400 = 96 золотников
1 пуд = 400/10 = 40 фунтов
1 берковец = 10 пудов
<u>№1</u>
var
n:integer;
begin
Write('Введите двухзначное число: '); Read(n);
n:=Abs(n); { убираем минус, если он есть }
Writeln('Среднее арифметическое цифр числа: ',
(n div 10 + n mod 10)/2)
end.
<u>Пример</u>
Введите двухзначное число: 43
Среднее арифметическое цифр числа: 3.5
<u>№2</u>
var
n:integer;
begin
Write('Введите двухзначное число: '); Read(n);
n:=Abs(n); { убираем минус, если он есть }
Writeln('Разность количества десятков и единиц равна ',n div 10 - n mod 10)
end.
<u>Пример</u>
Введите двухзначное число: 38
Разность количества десятков и единиц равна -5
<u>№3</u>
var
a:real;
begin
Write('Площадь, ар: '); Read(a);
Writeln('Полных кв.км: ',Trunc(a/10000))
end.
<u>Пример</u>
Площадь, ар: 252123234
Полных кв.км: 25212
<u>№4</u>
const
f=96; { фунт }
p=40; { пуд }
b=10; { берковец }
var
z:longint;
kb,kp,kf:integer;
begin
Write('Введите вес в золотниках: '); Read(z);
kf:=z div 96;
z:=z mod 96;
kp:=kf div 40;
kf:=kf mod 40;
kb:=kp div 10;
kp:=kp mod 10;
Writeln('Это составит ',kb,' берковцев, ',kp,' пудов, ',
kf,' фунтов, ',z,' золотников')
end.
<u>Пример</u>
Введите вес в золотниках: 374252
Это составит 9 берковцев, 7 пудов, 18 фунтов, 44 золотников
Var n,s,i:integer;
begin
write('Введите N: ');
readln(n);
for i:=1 to n do s:=s+i*i;
writeln('Ответ: ',s);
<span>end.</span>