№ 1. Выберите изменение формы представления информации: * собака — домашний питомец домашний питомец — попугай собака – dog № 2. Связанная с получением нового содержания, новой информации обработка * запись воспоминаний набор текста в текстовом редакторе и форматирование решение математической или логической задачи № 3. Необходимо преобразовать текстовую информацию в математическую запись и найти ответ на во задачи:“У одного мужика 23 овцы, а у другого на 7 больше. Сколько у них овец вместе? ” * 23 + (23 + 7) = 53 23 – (23 + 7) = 53 23 + (23 – 7) = 53 № 4. Выберете из перечня лишнее выражение * 5 · 2 (7 + 5) − 2 (7 + 6) − 4 № 5. Обработка информации - это * решение информационной задачи работа компьютера работа программиста работа с большими объемами информации № 6. Как называется информация, получившаяся в ходе обработки * исходная новая выходная обработанная № 7. Выберите операцию, не являющуюся обработкой информации * поиск информации подготовка к сочинению сбор гербария решение задач по алгебре № 8. Как называется информация, поступившая на обработку * исходная входная новая выходная № 9. Маша нашла в словаре нужное слово. К какому виду обработки информации относится действие Маши * поиск систематизация изменение формы представления преобразование по заданным правилам № 10. Какое понятие не является синонимом систематизации информации * упорядочивание сортировка группировка накопление № 11. Зачем выполнять систематизацию информации * для удобства восприятия информации для удобства поиска информации оба ответы верны № 12. На столе в ряд стоят кувшин, банка и графин. В них налито вода, сок и компот (не известно что куда Когда воду переставили в конец ряда, то сок оказался посередине. Что налито в кувшин, при условии что, его не трогали * вода компот сок недостаточно данных № 13. Верно ли утверждение, что план действий, который требуется разработать для некоторых задач, для наглядности нужно записать в таблиц * да нет № 14. Есть ли наглядность у словесного описания плана действий, который требуется разработать для некоторых задач да нет
Ответы
program raf105;
var a,sum:integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
sum+= a;
until a=0;
writeln('Сумма: ',sum);
end.
2.program raf105;
var
s:string;
i,k,j:integer;
poli:boolean;
begin
poli:= true;
write('Введите слово: ');
readln(s);
s:= lowercase(s);
k:= length(s) div 2;
j:= k*2+1;
if (length(s) mod 2)<>0
then j+= 1;
for i:=1 to k do
begin
j-=1;
if poli
then poli:= s[i] = s[j];
end;
if poli
then writeln('Слово - палиндром')
else writeln('Слово - не палиндром');
end.
3.
program raf105;
var a:array[1..10] of integer;
x,i:integer;
begin
writeln('Вводите 10 чисел по очереди');
for i:=1 to 10 do
readln(a[i]);
write('Введите искомое число: ');
readln(x);
write('Индексы совпадающих элементов: ');
for i:=1 to 10 do
if a[i] = x
then write(i,' ');
end.
4.program raf105;
var a:integer;
begin
write('Введите номер дня недели: ');
readln(a);
case a of
1: writeln('Это Понедельник');
2: writeln('Это Вторник');
3: writeln('Это Среда');
4: writeln('Это Четверг');
5: writeln('Это Пятница');
6: writeln('Это Суббота');
7: writeln('Это Воскресенье');
end;
end.
5.program raf105;
var a:array[1..100] of integer;
i,o,x: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
o+= 1;
readln(a[o]);
until a[o]=0;
o-= 1;
writeln('Введённые числа в обратном порядке:');
for i:=o downto 1 do
writeln(a[i]);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Как узнать вк человека или сайт школы и тд другого человека через IP
Создайте словарь рыбы а его элементы разделить на три вида речные озерные и морские
Написать сиквейны к словам: компьютер, общение, модель
1.
program z1;
var a:array [1..10] of integer;
i,k:integer;
begin
write ('Введите элементы массива через пробел и нажмите Enter ');
for i:=1 to 10 do read (a[i]);
write ('Массив: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
write ('Номера элементов больше 5: ');
for i:=1 to 10 do if a[i] > 5 then
begin
write (i,' ');
k:=k+1
end;
writeln;
writeln ('Элементов больше 5: ',k)
end.
2.
program z2;
var s:string;
begin
readln (s);
while pos('о',s)<>0 do delete(s,pos('о',s),1);
writeln(s)
end.
Объяснение:
Смотри картинки
2. Программа удаляет только строчные русские о