Sub aaa()
s = InputBox("Введите строку")
n = CInt(InputBox("Введите длину N"))
m = Len(s)
If m > n Then
s = Right(s, n)
Else
If m < n Then s = String(n - m, ".") + s
End If
MsgBox "Результат: " + s, vbInformation
End Sub
Энергетический кризис — явление, возникающее, когда спрос на энергоносители значительно выше их предложения. Его причины могут находиться в области логистики, политики или физического дефицита. Первый энергетический кризис начался осенью 1973, после того как ОПЕК сознательно снизила объёмы добычи нефти (примерно на 5 %), чтобы повлиять на мировые цены в свою пользу.
16 октября 1973 цена на нефть поднялась на 70 % с трёх долларов за баррель до пяти. В течение следующего года цена на нефть поднялась до двенадцати долларов.
Это событие вошло в историю под названием «нефтяное эмбарго», так как упомянутое снижение объёмов добычи было проведено из политических соображений и было инструментом давления государств ОПЕК на Запад в связи с их недовольством его поддержкой Израиля в Войне Судного дня.
Вариант, где реализовано не в виде процедуры sub, а при помощи function
var
x,a, b: integer;
begin
readln (x);
a:= x div 10;
b:= x mod 10;
writeln ('сумма=', a+b);
writeln( ' произведение =', a*b);
end.
n - кол-во чисел
i - цикловая переменная
а - число
max - максимальное число, оканчивающееся на 3
Язык програмирования: Паскаль.
var
n,i,a,max: integer;
begin
readln(n);
max := -1;
for i := 1 to n do
begin
readln(a);
if (a mod 10 = 3) and (a > max) then
max := a;
end;
writeln(max)
end.
