Тест. Типы данных Вопрос 1. Какое из них лучшее описание переменной?
А) Переменные хранят данные программы во время выполнения кода.
В) Переменные управляют объемом памяти.
С) Переменные - это отдельные значения в таблице базы данных.
D) Переменные позволяют программистам работать с различными устройствами ввода.
Вопрос 2. Что из следующего является неверным утверждением?
A) Значения переменных могут изменяться во время работы программы.
B) Переменные позволяют обрабатывать практически любые данные.
C) Все переменные используют одинаковый объем памяти.
D) Переменные должны храниться в базе данных или файле, если они должны быть сохранены после завершения программы.
Вопрос 3. Чтобы использовать значение переменной, вам необходимо знать:
А) Размер памяти, используемой ее типом данных.
В) Источник хранимых данных.
С) Физический адрес в памяти.
D) Имя для ссылки на тип данных.
Вопрос 4. Какой из следующих типов данных НЕ МОЖЕТ хранить число 47 255?
A) Double.
B) int.
C) String.
D) Char.
Вопрос 5. C ++ для объявления переменной используется следующий синтаксис:
тип данных имя переменной;
Какие из следующих объявлений C ++ недопустимы?
A) bool;
B) целое число intScore;
C) double DeCtuRn;
D) нет верного ответа;
Вопрос 6. Что содержит целые или действительные числа с выделенной памятью 8 байтов?
A) int.
B) Double.
C) bool.
D) String.
Вопрос 7. Что содержит буквенно-цифровые символы с использованием кодировки символов? (размер варьируется)
A) bool.
B) int.
C) десятичный.
D) Строка.
Вопрос 8. Что содержит целые числа? (4 байта)
A) String.
B) bool.
C) int.
D) Double.
Вопрос 9. Какие данные верны, а какие – нет?
A) bool.
B) int.
C) Double.
D) String.
Вопрос 10. Как называется IV раздел нашего учебника?
A) Программирование решений.
B) Знакомство с C ++.
C) Контроль выполнения программы.
D) Структуры условного управления.
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}
var
sq : array[0..999] of array[0..9] of boolean;
co : array[0..999] of integer;
ar : array[1..10003] of 0..9;
i,j: integer;
x: integer;
t : boolean;
begin
for i := 0 to 999 do
begin
for j := 0 to 9 do
sq[i][j] := false;
co[i] := 0;
end;
for i := 1 to 3 do
ar[i] := 0;
i := 3;
t := true;
{write('000');}
while t do
begin
i := i + 1;
x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
if co[x] >= 10 then t := false
else
begin
j := 1;
while sq[x][j] do
j := (j + 1) mod 10;
ar[i] := j;
sq[x][j] := true;
co[x] := co[x] + 1;
{write(j)}
end;
end;
{writeln;}
writeln('Length: ',i - 1);
{просто чтобы убедиться}
for i := 0 to 999 do
for j := 0 to 9 do
sq[i][j] := false;
t := true;
j := 0;
i := 1;
while (i <= 10000) and t do
begin
x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
if sq[x][ar[i+3]] then t := false
else
begin
sq[x][ar[i+3]] := true;
j := j + 1;
end;
i := i + 1
end;
if t and (j = 10000) then
write('Confirmed')
end.