Контрольная работа по теме « основы алгоритмизации» вариант ιι. а1. алгоритмом можно считать: а) список учеников в журнале, б) план разбора слова по составу, в) технический паспорт принтера, г) схему движения транспорта. а2. для записи действий в блок – схеме используют элемент: а) б) в) г) а3.
величина false относится к величинам: а) целого типа, б) символьного типа, в) логического типа, г) типа. а4. исполнителю вычислитель был задан алгоритм: умножь на 2 вычти 1 умножь на 2 вычти 1 в результате выполнения этого алгоритма цифра 5 будет преобразована в число: а) 20, б) 17, в)15, г)19.
а5. был задан алгоритм: в результате выполнения этого алгоритма переменная у примет значения: hello_html_m5a8635a4.jpg а)15, б)30, в) 20, г) 45. а6. в результате выполнения алгоритма а: =17; b: =(a div 10)*10; a: =(b*2)+ a div 100; если a> b то c: =a-b иначе с: =b-a переменная с примет
значения: а) 50, б) 10, в) 45, г)85. а7. к какому виду алгоритмов можно отнести алгоритм, схема которого представлена ниже? hello_html_m5f8ea63a.jpg а) разветвляющийся с полным ветвлением, б) разветвляющийся с неполным ветвлением, в) цикл со счётчиком, г) цикл с предусловием. б1. в ответе через
запятую запишите пропущенные слова. «свойство означает, что алгоритм состоит только из команд, входящих в команд исполнителя». б2. запишите на алгоритмическом языке следующие выражения: а) ; б) +17х+2 в) б3. вычислите: а) 24div7 б) 156mod12 в) (1256 div7)mod5 заранее
program Find33;
uses SysUtils;
const
L = 100; // количество чисел, можно изменить на любое значение
var
i, j, c, cnt: Integer;
A: array [1..L] of Integer; // массив для сохранения чисел
s: string;
begin
WriteLn ('Массив трехзначных чисел: '); // вывод на экран сообщения
Randomize; // инициализация датчика случайных чисел
for i := 1 to L do begin
A [i] := 100 + Random (900); // заполняем массив случайными трехзначными числами
Write (A [i], ' '); // выводим их все на дисплей
end;
cnt := 0; // счетчик чисел с двумя тройками
WriteLn ('Найдены числа:');
for i := 1 to L do begin // цикл перебора всех элементов массива
s := IntToStr (A [i]); // трехзначное число преобразуем с символьную строку
c := 0; // счетчик троек в числе
for j := 1 to Length (s) do begin // цикл перебора всех символов строки
if s [j] = '3' then begin // если тройка, то инкремент счетчика троек
c := c + 1;
end;
end;
if c >= 2 then begin // если в числе хотя бы две тройки, то вывод числа и инкремент счетчика чисел
cnt := cnt + 1;
WriteLn (A [i]);
end;
end;
WriteLn ('Количество чисел, у которых хотя бы две тройки = ', cnt); // вывод результата
ReadLn; // ждать нажатия Enter
end.
Объяснение: комментарии в программе
int main()
{
int a,b,c,d,z,sum;
cout<<"Сколько денег ты потратил на игры в этом месяце?"<<endl;
cin>>a;
cout<<"Сколько денег ты потратил на еду в этом месяце?"<<endl;
cin>>b;
cout<<"Сколько денег тебе дали родители в этмо месяце?"<<endl;
cin>>c;
cout<<"Сколько денег ты одолжил другу в этом месяце?"<<endl;
cin>>d;
cout<<"Сколько денег ты потратил на себя в этом месяце?"<<endl;
cin>>z;
sum=a+b+c+d+z;
cout<<"Общая сума - "<<sum<<endl;
system("pause");
return 0;
}