// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var n:=ReadInteger('n=');
var b:=ArrRandom(n,10,99); b.Println;
Swap(b[1],b[n-2]); b.Println;
b:=b.Sorted.ToArray; b.Println
end.
<u><em>Тестовое решение</em></u>
n= 15
74 23 76 50 79 79 38 74 21 33 45 10 35 58 48
74 58 76 50 79 79 38 74 21 33 45 10 35 23 48
10 21 23 33 35 38 45 48 50 58 74 74 76 79 79
program av;
var a,b,c,d,e,f:integer;
begin
writeln('введите числа ');
readln(a,b,c,d);
if (b<0) and (d<0)
then begin e:=b*d; writeln(e); end;
if (a>10) and (c>10)
then writeln(a,'0 ',b,'0 ',c,'0 ',d'0 ');
if (b<0) and (d<0) and (a>10) and (c>10)
then writeln(a,' ',b,' ',c,' ',d,' ')
else begin
a:=a/10;
b:=b/10;
c:=c/10;
d:=d/10;
writeln (a,' ',b,' ',c,' ',d,' ');
end;
end.
1)
var a:integer;
begin
writeln('введите число');
readln(a);
writeln('1',a,'1');
<span>end.
2)
var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for c:=10 to 99 do
begin
if (c mod a = 0) or (a = c mod 10) or (a = c div 10) then
writeln(c);
end;
<span>end.
</span>3)
var b,c:integer;
a:array [1..100] of integer;
beginwriteln('введите длину массива');
readln(b);
for c:=1 to b do
begin
writeln('введите элемент массива');
readln(a[c]);
a[c]:=a[c]+1;
writeln(a[c]);
end;
<span>end.</span></span>
Составьте программу ввода и вывода массива;3,4,-9,8,1,-6,2,-5,-1,7,5,9.
В ТАБЛО ДАМ ПИЗ Д...
Var a: array[1..50] of Integer;
x,i: integer;
begin
writeln('количество элементов в массиве:');
readln(x);
for i:=1 to x do
begin
readln(a[i]);
end;
for i:=1 to x do
begin
writeln(a[i]);
end;
end.
Ученик, решает задачу по геометрии. Тогда в этом случаи исходные данные — это условие задачи. Обрабатывание идет строго по геометрическим правилам, которые определяют последовательность, а также по формулы, которые мы используем для подстановки исходных данных. Результат — это полученный ответ.
Вид обработки: получение новой информации, новых сведений.
2. Ученик, видит на доске химические знаки, его задача назвать каждый элемент (например N-азот). Исходные данные — это 10 штук химических знаков, которые записаны на доске. Обозначение из таблицы Менделеева помогают правильно сказать название элемента(в слух, всему классу). Результат - правильное название каждого элемента.
Вид обработки: изменение формы представления информации.
3. Ученик на уроке истории должен сопоставить в таблице даты и события. Исходные данные — это даты и события, которые представлены в строчку. Дано два столбика "Даты" и "События", в начале запишем каждую дату по порядку с 1917 по 1936, а затем по памяти или с помощью учебника вписываем событие, которое относится к этой дате. Результат - правильное расположение в таблице даты и события.
Вид обработки: систематизация, структурирование данных.
4. Ученик на уроке литературы должен найти в учебнике ответ на вопрос "Сколько романов написал И.А. Гончаров?". Исходные данные — это данные из вопроса. Название автора, которое представлено в вопросе подсказывают нам, где нужно искать эту информацию(страницы). Результатом будет являться правильным ответом на вопрос(три романа: "Обыкновенная история", "Обломов", "Обрыв").
Вид обработки: поиск информации.
