4 года назад

Пожалуйста срочно помогите с задачей 5!!!!

Знания

Информатика

1 ответ:

Ирина Марьина [106]4 года назад

0 0

Всего 23 числа
 10 12 18 20 21 24 27 30 36 40 42 45 48 50 54 60 63 70 72 80 81 84 90
Пример в Excel
Программа в макроредакторе

Читайте также

Помогите решить 13 14 развернуто

Мурат02

Ответ:

№13

а). $1001_{8}$

б). $1130_{8}$

в). $3732_{8}$

№14

а). $201_{16}$

б). $258_{16}$

в). $7DA_{16}$

Подробное решение на фотографиях.

0 0

4 года назад

Сформировать массив случайным образом вывести на экран элементы, стоящие на четных местах

Kirill228Kirill

Var
a:array[1..100] of integer;
i:integer;

begin
for i:=1 to 100 do
begin
a[i]:=random(100)+1
if ((i mod 2)=0) then write(a[i]," ");
end;
end.

0 0

2 года назад

НАПИСАТЬ 2 блоксхемы по информатике. Прошу помочь.

Yblok [50]

Ответ:

Есть программа FCEditor, рисует блоксхемы по коду в Pascal

Объяснение:

0 0

3 года назад

Найти наибольший элемент двумерного массива. В паскале. Обязательно использовать функцию или процедуру

Дьеьегей

Const n=5;
var i,j:integer;
a:array[1..n,1..n] of integer;
Max:integer;

procedure p_max(input_mass:integer);
begin
if input_mass>Max then
Max:=input_mass;
end;

//Заполняем массив
procedure zapolnenue;
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
  a[i,j]:=Random(1000);
end;

begin
Randomize;
zapolnenue;

writeln('Массив:');
for i:=1 to n do
begin
   for j:=1 to n do
   begin
    write(a[i,j],' ');
    p_max(a[i,j]);
   end;
   writeln;
end;
writeln;

writeln('Max = ',Max);
end.

0 0

4 года назад

Помогите пожалуйста задачу сделать в паскале. Составьте программу, которая удаляет из слова X те буквы, которые встречаются в сл

Николай Сорокин

var
x,z:string;
i:integer;
ar:array['а'..'я'] of boolean;
begin
readln(x);
readln(z);

for i:=1 to Length(z) do
ar[z[i]]:=true;
for i:=Length(x) downto 1 do
if (ar[x[i]] = true) then delete(x,i-1,1);
writeln(x);
end.

Не забудь отметить лучший ответ ;-)

0 0

4 года назад