2) Уровень B.
Код программы:
var a: array[1..10] of integer;
i, kol:integer;
begin
write('Массив: ');
for i:=1 to 10 do begin
a[i] := random(201);
write(a[i], ' ');
end;
kol:=0;
for i:=1 to 10 do begin
if (a[i] div 100) = 0 then
kol := kol + 1;
end;
writeln();
writeln('Двузначных чисел: ', kol);
end.
3) Уровень C.
Код программы:
var a: array[1..10] of integer;
i, kol:integer;
begin
write('Массив: ');
for i:=1 to 10 do begin
a[i] := random(10, 100);
write(a[i], ' ');
end;
kol:=0;
for i:=1 to 9 do begin
if (a[i] + a[i+1]) mod 3 = 0 then
kol := kol + 1;
end;
writeln();
writeln('Таких пар : ', kol);
end.
1. Для записи алгоритмов используют несколько словесный
графический
программный
Словесный – это записи алгоритма на естественном языке, но с тщательно отработанным набором слов и фраз, не допускающих повторений, синонимов, двусмысленности, лишних слов. Допускается использование математических символов. При графическом описания алгоритма осуществляется с блок-схем. Программный это запись алгоритма на языке программирования (в виде компьютерной программы).
2. Налить 9 литров. Перелить в другое ведро 5 литров. В 9-ти литровом останется 4 литра. Из 5-ти литрового вылить воду. Перелить из 9-ти литрового оставшиеся 4 литра в 5-ти литровое ведро. Наполнить 9-ти литровое ведро водой. Перелить в 5-ти литровое ведро 1 литр (больше в 5-ти литровое не влезет). Из 5-ти литрового вылить воду. В 9-ти литровом останется 8 литров. Перелить в 5-ти литровое ведро. ИТОГ: в 9-ти литровом останется 3 литра.
3. Прямоугольник - блок вычислений
Ромб - условие
Параллелограмм - блок ввода-вывода данных
овал - начало и конец алгоритма
Стрелки, соединяющие эти фигуры, и задают порядок выполнения действий.
a: array [0..9] of integer;
i, j: integer;
begin
s = readln();
for i := 1 to length(s) do
a[Convert.ToInt32(s[i])]++;
for i := 9 downto 0 do
for j := 1 to a[i] do
write(i);
end.
Это на pascalABC.net. Все должно работать, только Convert можешь сам исправить, если не работаешь в .net