Там было слишком много ошибок. Вот работающий код (*.pas файл открыть блокнотом)
Var a: array [1 .. 10] of integer;
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i] = C then
begin
Count := Count + 1;
tmpLast := i;
end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
writeln('В массиве нашлось число, равное С');
if (Count = 1) then
writeln('Первое и единственное число в позиции a[', tmpLast, ']')
else
begin
i := 0;
repeat
i := i + 1;
tmpFirst := i;
until (a[i] = C);
writeln('Первое такое число a[', tmpFirst, ']');
writeln('Последнее такое число a[', tmpLast, ']');
end;
end;
readln;
end.
1.Составление фоторобота по словесному описанию.
Дано словесное описание. Значит когда составляется фоторобот идет работа над описанием, фактический, это действие над информацией которая дана.
2. Передача смс сообщения. В нем так же работаю с информацией. Для того что бы передать сообщение, для начала нужно его составить. Значит будет проведена работа с информацией. Фактический среди действий с информацией есть такое как передача.
Var a,b,c:integer;
k:boolean;
begin
readln(a);
readln(b);
readln(c);
k:=false;
if (a mod 3=0) and (a mod 10=5) then
begin;
writeln(a);
k:=true;
end;
if (b mod 3=0) and (b mod 10=5) then
begin;
writeln(b);
k:=true;
end;
if (c mod 3=0) and (c mod 10=5) then
begin;
k:=true;
writeln(c);
end;
if k=false then writeln('НЕТ');
<span>end.</span>
Я думаю что ответом на н.1 будут варианты А.
На вопрос н.2 ответом является вариант З,Г.
Вариант А самый безопасный для разговора.
Варианты З и Г используются везде. (Ну почти везде.)
