Известна информация о стоимости 1 килограмма двадцати сортов конфет. подготовить лист для получения ответа на вопрос: верно ли, что самые дешевые конфеты стоят меньше а рублей за 1 кг? (значение а задается в отдельной ячейке.)
Var a,max,sum:integer; arr:array [0..2015] of integer; begin randomize; max:=-500; sum:=0; for a:=0 to 2015 do begin arr[a]:=random(1001)-500; if max<arr[a] then max:=arr[a]; end; write('максимальный элемент массива ==> ',max); writeln();
if max mod 2 = 1 then begin for a:=0 to 2015 do begin if arr[a] mod 2 =1 then sum:=sum+arr[a]; end; writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum); end;
sum:=0; if max mod 2 = 0 then begin for a:=0 to 2015 do begin if arr[a] mod 2 =0 then sum:=sum+arr[a]; end; writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum); end;
1. Текстовый редактор (встроенный или внешний), текстовый процессор. Есть еще системы верстки. Примеры текстовых редакторов - Edit для MS-DOS/Windows 9x/NT, mcedit для Unix. Текстовые процессоры - MS Word для DOS/Windows, OpenOffice Writer для Linux/FreeBSD/Windows
2. Текстовый процессор позволяет не просто набирать и сохранят текст, но также добавлять элементы форматирования текста - подчеркивание, абзацы, курсив, регистры, различные шрифты и размеры и т.д.
3. Набор текста с различными стилями, включая абзацы, таблицы, различные шрифты, картинки, формуды, медиафайлы и гиперссылки, сохранение текста в различных форматах, печать готового текста и отправка его по электронной почте.
4. Слово, строка, абзац, страница, таблица, встроенные объекты вроде формул или картинок
5. Подбор шрифта, цвета шрифта, выравнивания и применение различных элееентов стилей
arr:array [0..2015] of integer;
begin
randomize;
max:=-500;
sum:=0;
for a:=0 to 2015 do begin
arr[a]:=random(1001)-500;
if max<arr[a] then max:=arr[a];
end;
write('максимальный элемент массива ==> ',max);
writeln();
if max mod 2 = 1 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =1 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;
sum:=0;
if max mod 2 = 0 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =0 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;
end.
1. Текстовый редактор (встроенный или внешний), текстовый процессор. Есть еще системы верстки. Примеры текстовых редакторов - Edit для MS-DOS/Windows 9x/NT, mcedit для Unix. Текстовые процессоры - MS Word для DOS/Windows, OpenOffice Writer для Linux/FreeBSD/Windows
2. Текстовый процессор позволяет не просто набирать и сохранят текст, но также добавлять элементы форматирования текста - подчеркивание, абзацы, курсив, регистры, различные шрифты и размеры и т.д.
3. Набор текста с различными стилями, включая абзацы, таблицы, различные шрифты, картинки, формуды, медиафайлы и гиперссылки, сохранение текста в различных форматах, печать готового текста и отправка его по электронной почте.
4. Слово, строка, абзац, страница, таблица, встроенные объекты вроде формул или картинок
5. Подбор шрифта, цвета шрифта, выравнивания и применение различных элееентов стилей
Объяснение: