М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Program9.pas(20) : нет индексного свойства по умолчанию для типа byte вот код: program a; const n=10; type mass=array[0..n-1] of string[20]; var m: mass; head,tail: byte; function pos(p: byte): byte; begin if p=n-1 then pos: =0 else pos: =p+1; end; procedure add_elem(var m: mass; var q,head,tail: byte; z: string); begin if head=-1 then begin head: =0; tail: =0; end else if pos(tail)=head then begin write('переполнение'); end else begin q[tail]: =z; tail: =pos(tail); end; end; procedure add_chet_nechet(var m: mass; var head,tail: byte; z: string); var i: integer; begin for i: =1 to n do begin m[i]: =random(9)+1; write(m[i],' '); end; writeln; write('четные: '); for i: =1 to n do begin if (m[i] mod 2 = 0) then write(m[i],' '); end; write('нечетные: '); for i: =1 to n do begin if (m[i] mod 2 = 1) then write(m[i],' '); end; writeln; end; begin add_elem; add_chet_nechet; end.

👇
Открыть все ответы
Ответ:

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

 

function Pow(a, x:integer):integer;
var
  rez, i:integer;
begin
  rez := 1;
  for i := 1 to x do
    rez := rez * a;
  Pow := rez;
end;

function BinToDec(a:string):integer;
var
i ,r:integer;
begin
  r := 0;
  for i := length(a) downto 1 do
    r := r + StrToInt(a[i]) * Pow(2, length(a) - i);

  BinToDec := r;
end;

var
  s:array[1..100] of string;
  i:integer;
begin
  s[1] := '11001101';
  s[2] := '11100101';
  s[3] := '11110010';
  s[4] := '00100000';
  s[5] := '11110101';
  s[6] := '11110011';
  s[7] := '11100100';
  s[8] := '11100000';
  s[9] := '00100000';
  s[10] := '11100001';
  s[11] := '1110010';
  s[12] := '11100111';
  s[13] := '00100000';
  s[14] := '11101110';
  s[15] := '11100001';
  s[16] := '11110000';
  s[17] := '11100000';
  s[18] := '00101110';
  for i := 1 to 18 do
    write(chr(BinToDec(s[i])));
end.

4,5(59 оценок)
Ответ:
marinamarinam9
marinamarinam9
27.04.2021

#include <conio.h>

#include<iostream.h>

void main()

{

int n,s,p,a;

cout<<"Введите число》";

cin>>n;

s=0;

p=1;

while (n>0)

{

s=s+n%10;

p=p*(n%10);

n=n/10;

}

cout<<s <<endl;

cout<<p<<endl;

if ((s%10>0)&&(s/100==0))

cout<<"сумма двузначная"<<endl;

if ((p%100>0)&&(p/1000==0))

cout<<"произведение трехзначное"<<endl;

cout<<"Введите число a》";

cin>>a;

if (p>a)

cout<<"произведение > "<<a<<endl;

if (s%5==0)

cout<<"сумма кратна 5"<<endl;

if (s%a==0)

cout<<"сумма кратна "<<a<<endl;

}

4,4(76 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ