1. В языке Паскаль использование циклов целесообразно: 1) для вычисления частного и остатка без использования операции деления 2) при расчете скорости для заданного времени и расстояния
3) для заполнения различных данных
4) при расчете среднего арифметического двух чисел

2. Если число повторений тела цикла известно, то целесообразно использовать:
1) цикл-ПОКА
2) цикл-ДЛЯ
3) цикл-ДО
4) цикл с составным оператором

3. Запишите значение переменной s, полученное в результате работы следующей программы.
var s,k: integer; begin
s := 0;
for k := 3 to 8 do
s := s + 7; writeln(s);
end.

4. Цикл во фрагменте программы: а:=0,1;
s:=0;
i:=1;
repeat
i:=i+1; b:=1/i; s:=s+a;
until b<а; выполнится:
1) 10 раз 2) 2 раза 3) 1 раз 4) 4 раза

5. Запишите значение переменной s, полученное в результате работы следующей программы.
var s,k: integer; begin
s := 1;
for k := 1 to 7 do
s := s * 2; writeln(s);
end.

6. В результате -выполнения фрагмента программы:
s:=0;
n:=1;
whlle n<=5 do
begin
s:=s+n;
n:=n+1;
end;
writeln (‘s=’, s);
переменная s примет значение: 1) 15
2) 5
3) 10
4) 4

7. Запишите название цикла с заданным числом повторений, который программируется с оператора for.

8. Запишите, с какого оператора программируется в языке Паскаль цикл с заданным условием продолжения работы.​

ответ:program qwe;

var

a:array[1..30] of integer; //объявляем массив а целых чисел из 30 элементов

i,k,j:integer; //объявляем i,k,j целого типа

begin

randomize; //подключаем генерирование случайных чисел

for i:=1 to 30 do //циклом от 1 до 30 включительно

begin

a:=random(50); //заполняем каждый элемент массива случайными числами

//от 0 до 50 (не включая 50)

write(a,' '); //выводим в строчку полученный элемент и

//добавляем после него пробел

end;

writeln; //переход на новую строку

for j:=1 to 3 do //циклом от 1 до 3 влючительно

//т. к. в июне 30 дней, то и декад - 3

begin

k:=0; //обнуляем k, что бы каждую декажу считать заново

for i:=(1+10*(j-1)) to 10+10*(j-1) do //циклом от начала каждог десятка

//например с 1, с 11 и с 21 по конец каждого десятка

//например по 10, по 20 и по 30

k:=k+a; //к тому что у нас было прибавляем очередной элемент

writeln(k,' осадков за ',j,' декаду'); //выводим результат

end;

readln; //для задержки экрана.

end.

код иногда некорректно отображается на "ответах"

1)Создание таблицы в новой базе данных  

Щелкните Файл > Создать и выберите пункт Пустая база данных рабочего стола.  

В поле Файл введите имя файла новой базы данных.  

Чтобы сохранить базу данных в другом месте, щелкните значок папки.  

Нажмите кнопку Создать.  

Откроется новая база данных, в которой будет создана и открыта в режиме таблицы новая таблица с именем "Таблица1".  

2)Создание таблицы в существующей базе данных  

Щелкните Файл > Открыть и выберите базу данных, если она указана в разделе Последние. В противном случае выберите один из вариантов поиска базы данных.  

В диалоговом окне Открытие файла базы данных найдите базу данных, которую вы хотите открыть,и нажмите кнопку Открыть.  

на вкладке Создание в группе Таблицы нажмите кнопку Таблица.  

В базу данных будет вставлена новая таблица, которая откроется в режиме таблицы.