Быстрее помогите пожалуйста срочно

Знания

Информатика

1 ответ:

Svenys4 года назад

0 0

Плохое фото пришли на белой бумаге четко написаное

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

Написать программу: нечетным элементам одномерного массива присвоить значения квадратов индексов.

vadim280

//PascalABC.Net 3.2
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger('Кол-во элементов: '));
for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1);
a.Println;
a.Println;
end.

0 0

4 года назад

Найти произведение цифр целого положительного числа, введенного с клавиатуры

игорь1968555

Dim i As Integer
Dim x As Integer
Dim Summ As Integer

i = InputBox("Введите целочисленное положительное число")
Summ = 1
For x = 0 To Len(CStr(i)) - 1
Summ *= CInt(Mid(CStr(i), x + 1, 1))
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Next

MsgBox(Summ)

0 0

4 года назад

Составить алгоритм таблицы умножения на 7.

Анютка99999999999

Var i: integer;
begin
for i:=1 to 9 do
writeln('7 * ', i, ' = ', 7 * i)
end.

0 0

4 года назад

Ваня шифрует русские слова, записывая вместо каждой буквы её номер в алфавите(без пробелов). Номера букв указаны в таблице: А 1

Айгуль777 [23]

3434. 3 - В, ;4 - Г, эта расшифровка имеет только один способ : ВГВГ, ведь в алфавите нет ни 34, ни 43 буквы

0 0

4 года назад

Запишите оператор, который увеличит значение переменной x в два раза

Savinov

Х:=2*Х
ттттттттттт ттт

0 0

4 года назад