Задание №1
3 × 3 = 9 // умножить на 3
9 + 2 = 11 // прибавить 2
11 × 3 = 33 // умножить на 3
33 + 2 = 35 // прибавить 2
35 + 2 = 37 // прибавить 2
Ответ: 12122
Задание №2
Если 11221 из числа 11 делает число 118, можно записать как:
Команда 22 из числа 13 делает число 117.
Таким числом является 3.
13 × 3 = 39
39 × 3 = 117
Ответ: 3
Задание №3
Если 21212 из числа 11 делает число 130, можно записать как:
Команда 121 из числа 22 делает число 65.
Таким числом является 7.
22 + 7 = 29
29 × 2 = 58
58 + 7 = 65
Ответ: 7
Var
x,max:real;
n,i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
begin
write('Введите число ',i,': ');
readln(x);
if x<0 then
begin
if max=0 then max:=x; // если это первое отр.число
if x>max then max:=x
end
end;
writeln('Наибольшее среди отрицательных: ',max)
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var t:integer;
var k:=0;
repeat
Read(t);
if t.ToString.Where(c->c='5').Count=2 then k+=1
until t=0;
Writeln('Количество чисел с двумя пятерками равно ',k)
end.
<span>C:\, school, <span>physics, school, math, notes.</span></span>
На слайде презентации может быть размещена текстовая информация, медиафайлы (фото, видео, звук), диаграммы, таблицы.