1.Программа ввести n чисел, затем выводит количество и сумму только введенных нечетных. 2. Программа вводить числа, пока их сумма не превысит 50. Затем выводит количество всех введенных чисел.
А1. Точечный элемент экрана дисплея называется: 3) пикселем
А2. Свойство алгоритма, заключающееся в том, что один и тот же алгоритм можно использовать с различными исходными данными, называется: 2) массовость
А3. Какая алгоритмическая конструкция называется циклом: 3) одни и те же операции выполняются многократно;
А4. Какой вид графики искажает изображение при масштабировании? 2) растровая графика
А5. Векторное графическое изображение формируется из 3) графических примитивов
А6. В каталоге Май хранился файл Сценарий.dос. Позже этот каталог перенесли в каталог Готово, расположенный в корне диска C. Укажите полное имя этого файла после перемещения. 2) С:\Готово\Сценарий.dос
Program proga; Var p: text; i, n : byte; s,min,m: string; Begin write('Введите имя файла '); {Например: C:.txt} read(m); Assign(p,m); reset(p); read(p,s); min:=s; n:=100; for i:=1 to n do begin readln(p,s); while not eof(p) do {нахождение минимальной строки} begin readln(p,s); if length(s) <= length(min) then min:=s; end; end; close(p); write('самая короткая строка: ',min); End.
А1. Точечный элемент экрана дисплея называется: 3) пикселем
А2. Свойство алгоритма, заключающееся в том, что один и тот же алгоритм можно использовать с различными исходными данными, называется: 2) массовость
А3. Какая алгоритмическая конструкция называется циклом: 3) одни и те же операции выполняются многократно;
А4. Какой вид графики искажает изображение при масштабировании? 2) растровая графика
А5. Векторное графическое изображение формируется из 3) графических примитивов
А6. В каталоге Май хранился файл Сценарий.dос. Позже этот каталог перенесли в каталог Готово, расположенный в корне диска C. Укажите полное имя этого файла после перемещения. 2) С:\Готово\Сценарий.dос
Var
p: text;
i, n : byte;
s,min,m: string;
Begin
write('Введите имя файла '); {Например: C:.txt}
read(m);
Assign(p,m);
reset(p);
read(p,s);
min:=s;
n:=100;
for i:=1 to n do
begin
readln(p,s);
while not eof(p) do
{нахождение минимальной строки}
begin
readln(p,s);
if length(s) <= length(min) then
min:=s;
end;
end;
close(p);
write('самая короткая строка: ',min);
End.