4 года назад

Составьте программу, определяющую, является ли целое положительное число трехзначным. (8класс)

1 ответ:

гюрем4 года назад

0 0

Var A:integer;
Begin
WriteLn('Введи число');
Read(A);
if (A>99)and(A<1000) then Write('Число трёхзначное')
else Write('Число НЕ трёхзначное')
End.

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

Помогииите : Запишите десятичное число 25 в двоичной, восьмеричной, шестнадцатеричной системах счисления

МариКаМ [21]

В операционной системе есть калькулятор который умеет переводить в базовые системы счисления

$25_{10}=11001_{2}=31_{8}=19_{16}$

0 0

4 года назад

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

Напишите программу подсчета произведения чисел в массиве Заранее спасибо!

МаринаЕфремова [28]

//Java
class Main {
public static void main(String[] args){
int[] a = new int[new java.util.Random().nextInt(10)];

int b = 1;

for (int i = 0; i < a.length; i++) {
a[i] = new java.util.Random().nextInt(9) + 1;
System.out.print(a[i] + " ");
b *= a[i];
}

System.out.print("\nmulti: " + b);
}
}

Проверка:
$ java Main.java
2 7 4
multi: 56

0 0

4 года назад

Задание 1.Запишите определения:Информация – _________________________________________________Информационные процессы – _________

fioel [515]

Ответ:

1- это сведения о том или о чём-то , передаваемые в форме знаков или сигналов.

2-это это процесс в ходе которого изменяется содержание информации или форма ее представления

3-это совокупность знаний о способах и средствах работы с информационными ресурсами

0 0

4 года назад

3. Перевести число по схеме: 307^8= х^2=х^16; 402^10=х^2=х^16

АлександрТ

307_8 = 11000111_2 = C7_16
402_10 = 110010010_2 = 192_16

0 0

3 года назад

помогите пожалуйста:Напиши цифровой фильтр. На вход программе подаётся строка символов. На выходе должны быть только её цифры. Н

Лайфхаки путешест... [1]

Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] in ['0'..'9']) then write(a[i]);
end.

2) Тут лучше: на входе строка, а берётся часть между 1 и 2 пробелами, ответ уже есть под задачей х)
var a, b: string;
i: integer;
w: boolean;
begin
readln(a);
for i := 1 to length(a) do
begin
if ((a[i] = ' ')) then
if (length(b) = 0) then w := true else w:=false;
if (w) then b := b + a[i];
end;
writeln(b);
end.

3)
var s: string;
i: integer;
begin
readln(s);
for i := 1 to length(s) do
if s[i] in ['A', 'E', 'I', 'O', 'Y', 'a', 'e', 'i', 'o', 'y']
then write(s[i]);
end.

0 0

4 года назад