4 года назад

СРОЧНО ПОМОГИТЕ С ИНФОРМАТИКОЙ

Знания

Информатика

1 ответ:

Oleh7d74 года назад

0 0

Думаю ответ под номером 1.

Зачем нам нужно записывать Russia? Там есть условие для этой программы?

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

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

Дмитрий Камеристый

Program znanija;var a: integer;begin write('Введите трехзначное число: '); readln(a); if (a>99) and (a<1001) then writeln('Чило: ',a,' трехзначное') else writeln('Чило: ',a,' не трехзначное');end.

0 0

4 года назад

ПОЧему песни разного формата занимают разное количество памяти на компьютере

Umbra11

Используются разные методы сжатия.

0 0

1 год назад

Дана последовательность, расположить ее элементы, кратные 3, по убыванию.(записать на языке паскаль)помогите срочно

АллаП

===== PascalABC.NET =====

begin

var n := ReadInteger('n=');

var a := ArrRandom(n, 10, 99); // для одинаковых позиций вывода

a.Println;

// элементы, кратные трем, упорядочить по убыванию

// прочие оставить на своих местах

var v := a.Select((v, i) -> (v, i))

.Where(t -> t[0] mod 3 = 0)

.OrderByDescending(t -> t[0])

.ToArray;

var w := v.Select(t -> t[1]).Sorted.ToArray;

for var i := 0 to w.High do

a[w[i]] := v[i][0];

a.Println

end.

0 0

4 года назад

Прошу решите на PascalABC или Phyton Дано натуральное число. Требуется разделить запятыми тройки его цифр(считая справа). Входны

SHEV-74

Var n: integer;
s: string;
begin
write('Введите строку символов ');
readln(s);
n:=Length(s);
for var i:= 1 to ((n-1) div 3) do
insert(',',s,n-3*i+1);
writeln(s);
end.
-----------
АБС паскаль.
типа данных для 100 цифр числа нет, поэтому вводим в строковый тип, и поэтому всё равно, что бить по три, цифры или буквы.

0 0

3 года назад

Укажите свойство, которое определяет имя компонента или формы. А) Form В) Name С) Frame D)Caption E)Width

Сергей84

Умммм...Лазарус

А) Форма

В) Имя обьекта

С) Сори не помню

Д) Имя проекта

Е) Тоже не помню

0 0

4 года назад

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

СРОЧНО ПОМОГИТЕ С ИНФОРМАТИКОЙ ​

СРОЧНО ПОМОГИТЕ С ИНФОРМАТИКОЙ