1) Чи можна висловлювання «Київ – столиця України» розглядати як логічний вираз
Так
Ні
2) var x, y, z : Integer; A, B, C : Boolean;
Які оператори присвоювання допустимі?
z := x
C := A Or B;
A := x>y;
C := A + B;
3) Величини, які можуть набувати лише одного із двох значень: істина або
хибність, називаються …
логічними
символьними
рядковими
числовими
4) Пріоритет виконання логічних операцій в логічному виразі(пронумеруйте
порядок виконання команд)
операції диз’юнкції
операції кон’юнкції
операції в дужках
операції заперечення
операції виконуються зліва направо
5) Пріоритет виконання логічних операцій в логічному виразі(пронумеруйте
порядок виконання команд)
операції диз’юнкції
операції кон’юнкції
операції в дужках
операції заперечення
операції виконуються зліва направо
6) Блок-схема якого алгоритму зображена на малюнку?(1 Мал.)
Алгоритм з розгалуженням
Алгоритм з повторенням
Лінійний алгоритм
7) Базова алгоритмічна структура, призначена для організації багаторазового
виконання набору команд - це...
повторення
слідування
розгалуження
8) var A : Real; B: Integer;
В яких операторах правильно організовано введення значень змінних?
А := StrToFloat(Edit1.Text);
В := StrToInt(Edit1.Text);
А := StrToInt(Edit1.Text);
Edit1.Text := FloatToStr (А);
9) Який алгоритм зображений на блок-схемі?(2 Мал.)
Лінійний
Циклічний
Розгалуження
var
n:integer;
begin
readln(n);
if(n<0)then write(0)
else write(n+4);
end.
2)
var
a, b: integer;
begin
readln(a, b);
if(a = b) then
write(1)
else
write(0);
end.
3)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a >= 0) then s := s + 1;
if(b >= 0) then s := s + 1;
if(c >= 0) then s := s + 1;
write(s);
end.
4)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a > 0) then s := s + a;
if(b > 0) then s := s + b;
if(c > 0) then s := s + c;
write(s);
end.
5)
var
a, b, c: integer;
begin
readln(a, b, c);
if (a < b) then swap(a, b);
if (a < c) then swap(a, c);
if (b < c) then swap(b, c);
write(a, ' ', b, ' ', c);
end.
6)
var n, k, s, i: integer;
begin
s := 0;
readln(n, k);
for i := 1 to n.ToString.Length do
if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
write(s);
end.
7)
var n, s, i: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
s := s + i;
write(s);
end.
9)
var n, i: integer;
begin
readln(n);
for i := n downto 1 do
write(i);
end.
12
var
n, i: integer;
s: real;
begin
s := 0;
readln(n);
for i := n downto 1 do
s:=s+(0.1*i);
write(s);
end.
13)
var n, i: integer;
begin
readln(n);
for i := 1 to n do
write(sqr(i), ' ');
end.
14)
var
n, i, c: integer;
begin
i := 1;
c := 0;
readln(n);
while (c <> n) do
begin
if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
i := i + 1;
end;
end.
15)
var
n, i, a: integer;
c: real;
begin
i := 1;
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
c := c + a;
end;
write(c / n)
end.
16)
var
n, i, a: integer;
begin
i := 1;
while true do
begin
read(a);
if(a = 0) then break;
n := n + 1;
end;
write(n)
end.
N, s, i: Integer;
s1: real;
begin
readln(N); {общий ввод для всех задач}
if N < 0 then
writeln('Задача 1. N=', 0)
else writeln('Задача 1. N=', N + 4);
s := 0;
for i := 1 to n do
s := s + i;
writeln('Задача 7. 1+2+3+…+N=', s);
write('Задача 9. Последовательность от N до 1 = ');
for i := n downto 1 do
write(i, ' ');
writeln();
s1 := 0;
for i := 1 to n do
s1 := s1 + i / 10;
writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
write('Задача 13. Последовательность квадратов от 1 до N = ');
for i := 1 to n do
write(i * i, ' ');
writeln();
write('Задача 14. Последовательность первых N нечетных чисел = ');
for i := 1 to n do
write(2 * i - 1, ' ');
writeln();
if N > 0 then
writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
s := 0;
for i := 1 to n do
if n mod i = 0 then
s := s + i;
writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.