Поделитесь своими знаниями, ответьте на вопрос:
8_Тест «Общие сведение о языке программирования Паскаль» Вариант 1 1. Какие из следующих последовательностей символов можно считать операторами присваивания? б) a+3:=5 в) a:=2a г) b:=b+3 д) k:=k+1 2. Укажите ложное высказывание: б) Нельзя присваивать программам имена зарезервированных языком программирования слов (begin, end, program) в) Имя программы может содержать любое количество любых символов 3. Условия, состоящие из одной операции сравнения, называются … б) линейными в) простыми г) сложными 4. Как можно представить структуру программы на языке Паскаль? Program Begin End б) Program End Begin в) Begin Program End 5. Какое из перечисленных слов не относится к служебным словам языка программирования Паскаль? б) Or в) Begin г) Read 6. Какие символы можно использовать при записи программы на языке Паскаль? б) * в) F г) Г д) ы 7. Алгоритм, записанный на языке программирования, называется … б) задачей в) программой г) моделью 8. Кто является разработчиком языка программирования Паскаль? б) Блез Паскаль в) Чарльз Бэббидж г) Никлаус Вирт 9. Укажите допустимые имена в языке Паскаль: б) sUmmA в) _F г) ЗЖ2 д)end 10. Установите соответствие: А) -32 768 … 32 768 1. char Б) true и false 2. boolean В) Произвольный символ алфавита 3. string Г) Последовательность не более чем из 255 символов 4. integer
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.