3 года назад

Какое минимальное основание должна иметь система счисления, если в ней могут быть записаны числа: 10, 21, 201, 1201?

Знания

Информатика

1 ответ:

Вьюжанка3 года назад

0 0

3 в ней могут использоваться для записи числа только цифры 0, 1, 2

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

Ввести с клавиатуры массив из 5 элементов,найти минимальный из них. Пример: Введите пять чисел: 4 15 3 10 14 минимальный элемен

Джеймс [335]

>if a[i] < min then min:=a[1];
>if a[i] < min then min:=a[i];

Program qq;
var a:array[1..5] of integer;
min, i: integer;

begin
writeln('Ââåäèòå ïÿòü ÷èñåë: ');
for i:=1 to 5 do
read(a[i]);

min:=a[1];

for i:=1 to 5 do
if a[i] < min then min:=a[i];
writeln('Минимальный элемент: ', min);
end.

0 0

4 года назад

Все 5-буквенные слова, составленные из букв Б, О, Р, записаны в алфавитном порядке и пронумерованы. Вот нача

anar

Ответ PPPOP......................................

0 0

4 года назад

Составьте программу, которая заполняет массив [1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами пер

casperer [6]

Program Program1;
Var
a:array [1..10] of integer;
i,temp:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
writeln('a[',i,']=',a[i]);
end;
temp:=a[1];
a[1]:=a[10];
a[10]:=temp;
writeln;
writeln('Полученный массив:');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.

0 0

4 года назад

"Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними сло

Anton16

Так как написана программа, в лучшем случае будет найдено только одно слово, должны быть вложенные циклы.
Решение (немного исправленное) в прикрепленном файле.

Ввод - вывод программы:
vvedite text:
it's a text for check programm abcdefgh hgfe pqrstu srqp.
word = for
word = abcdefgh
word = hgfe
word = pqrstu
word = srqp

0 0

4 года назад

ПАСКАЛЬ 7 КЛАСС Решите пожалуйста 7 класс Найти сумму цифр двухзначного числа, прошу вас,заранее спасибо

Святачка

Program calculator;
Var a,b: real;
Begin
Write('Первое число:');
readln (a);
Write('Второе число:');
readln (b);
Write('Результат: ',a+b);
End.

0 0

1 год назад

Прочитать ещё 2 ответа