1101010 перевести из А2 в А10

Знания

Информатика

1 ответ:

Ленни1 [14]4 года назад

0 0

вобще меня учитель учил это делать так:

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

Сколько можно купить быков, коров и телят, если плата за быка 10 рублей, за корову - 5 рублей, за теленка - полтинник (0,5 рубля

Александр423324

Var b, k, t: integer;
begin
for b:=0 to 10 do
for k:=0 to 20 do
begin
t:=100-(b+k);
if(20*b+10*k+t=200) then
writeln('Быков ' ,b,' коров ' , k,' телят ' ,t);
end;
end.

Результат:
Быков 1 коров 9 телят 90

0 0

4 года назад

Який результат виконання такого фрагменту програми F:=2; i:=16; While i>0 do Begin F:=F*2-1; I:=I-4; End Write(F)

Леся06

Посмотри поможета так думаю 2×16

0 0

4 года назад

Помогите!!!Проверь себя 1.Укажите символы,которые нельзя использовать в имени переменной. А.Символ подчеркивания В.Заглавные бук

Александр пром [7]

1) C. знак плюс. 2) В. Shortint. 3) D. string. 4) судя по предложенным вариантам - C. 4, есть такой, но real, например, 8 байт. 5) А. 3,5 нельзя через запятую. 6) C. Var. 7) C. Var a,b: integer; c: real. 8) D. A:=164. 9) C. B:=6.06. 10) A. C:='Informatika'. 11) D. D:='C'.

0 0

4 года назад

Для какого имени истинно составное условие (высказывание): (НЕ Третья буква гласная) or НЕ( (Первая буква согласная) or (В слове

uchoniy11

Светлана: 1→¬(1+0)=1→¬1=1→0=0;

Анатолий: 1→¬(0+1)=1→¬1=1→0=0;

Римма: 0→¬(1+0)=0→¬1=0→0=1;

Дмитрий: 1→¬(1+0)=1→¬1=1→0=0;

Ответ: Римма

0 0

4 года назад

Напишите программу, которая в последовательности натуральных чисел определяет произведение чисел, которые являются

Федотики [252]

var N,i,a,p:integer;

BEGIN

readln(N);

p:=1;

for i:=1 to N do begin

read(a);

if (a>9) and (a<100) then

p:=p*a;

end;

writeln(p);

end.

0 0

4 года назад