заполнить массив m7 случайными числами до 30 и вывести массив на экран, затем возвести пятый элемент массива во второй степени и вывести результат на экран
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016 begin var Bnk:=Arr(500,100,50,10); var s:=ReadInteger('Сдача, руб:'); var Kol:=Arr(0,0,0,0); for var i:=0 to 3 do begin Kol[i]:=s div Bnk[i]; s:=s mod Bnk[i] end; if s<>0 then Writeln('Сдачу дать невозможно') else begin Writeln('Следует дать:'); for var i:=0 to 3 do Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.') end end.
Тестовое решение: Сдача, руб: 850 Следует дать: банкнот по 500 руб - 1 шт. банкнот по 100 руб - 3 шт. банкнот по 50 руб - 1 шт. банкнот по 10 руб - 0 шт.
3) Укажите правильную последовательность действий при работе с базами данных (составить последовательность из букв): c. Продумать структуру базы данных b. Дать имя каждому полю в базе данных a. Занести данные в таблицу d. Осуществить сортировку записей в базе данных
4) Сортировка – это: c) расположение записей в определённом порядке
5) Примером базы данных может служить: c) Телефонная книга
6) В каком из перечисленных типов полей, данные могут выглядеть таким образом: 01. 07. 85? d) В поле дата/время
7) Какая из перечисленных баз данных имеет представленный ниже вид: № фамилия имя класс физика история 1. Горин Петя 10 а 4 5 2. Петров Юра 10 б 3 4 3. Васильева Катя 11 а 5 5 4. Петрова Юля 11 а 4 4 d) Табличная
8) Сколько полей в представленной выше базе данных? d) 6
9) БД содержит информацию об учениках компью¬терной школы: имя; номер группы; за тест; за задание; общее количество . Какого типа должно быть поле «Общее количество бал¬лов»? c) числовое;
10) БД содержит информацию о каждой собаке из клуба соба¬ководства: кличка, порода, дата рождения, пол, количестве медалей. Какого типа должны быть поля? b) текстовое, текстовое, дата, текстовое, числовое;
11) Для отбора записей об учащихся, которые имеют по физике оценку «3» , а по истории не ниже «4» , нужно задать условие отбора по столбцам «физика» и «история» соответственно: c) = 3 и >=4
12) Для выбора текстовых значений, начинающихся на букву « К » и состоящих из 4 символов, нужно задать условие отбора: c) К???
begin
var Bnk:=Arr(500,100,50,10);
var s:=ReadInteger('Сдача, руб:');
var Kol:=Arr(0,0,0,0);
for var i:=0 to 3 do begin
Kol[i]:=s div Bnk[i];
s:=s mod Bnk[i]
end;
if s<>0 then Writeln('Сдачу дать невозможно')
else begin
Writeln('Следует дать:');
for var i:=0 to 3 do
Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.')
end
end.
Тестовое решение:
Сдача, руб: 850
Следует дать:
банкнот по 500 руб - 1 шт.
банкнот по 100 руб - 3 шт.
банкнот по 50 руб - 1 шт.
банкнот по 10 руб - 0 шт.